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PREFACE 


This document provides information necessary to compile, link, 
execute, and debug a FORTRAN program under the RT-11 and RSTS/E 
operating systems. Chapter 1 describes the operating procedures. 
Chapter 2 provides information about the Object Time System (OTS). 
This system is a collection of routines, selectively linked to the 
user's program, which perform certain arithmetic, input/output, and 
system dependent service operations. It also detects and reports 
run-time error conditions. Chapter 3 describes system dependent 
information not included in the PDP-11 FORTRAN Language Reference 
Manual. Chapter 4 contains programming suggestions for increasing the 
effectiveness and efficiency of RT-ll/RSTS/E FORTRAN IV. Chapter 5 
describes the Concise Command Language option for RSTS/E. The 
Appendices provide reference information about internal data 
representations, system subroutines, error diagnostics, and 
compatibility of FORTRAN IV with other PDP-11 FORTRAN processors. 

Intended Audience 

This manual should be used only after some knowledge of the FORTRAN 
language, as implemented on the PDP-11, has been acquired. The 
associated document which can be used for this purpose is the PDP-11 
FORTRAN Language Reference Manual. The user should also be familiar 
with the operating system as described in either the RT-11 System 
User's Guide or the RSTS/E System User's Guide. The RSTS/E 
Documentation Directory and the RT-11 Documentation Directory contain 
additional information on the respective documentation sets. 


DOCUMENTATION CONVENTIONS 

All monitor and system program command lines are terminated by 
pressing the RETURN key. Since this is a non-printing character, at 
certain places in the text the notation RET represents the RETURN key. 

In examples of keyboard dialogue, monitor output and program output 
are underlined; user input is not. 

In format descriptions, upper-case characters represent information 
that must be entered exactly as shown; lower-case characters 
represent variable information that must be supplied by the user. 

Some special keyboard characters require that the CTRL (control) key 
be pressed simultaneously with a second character. These characters 
are denoted by “ (up arrow); e.g., "Z (CTRL Z). 

Ellipsis marks (...) indicate the omission of one or more words within 
a passage and show that the passage continues in the same vein. 








CHAPTER 1 


OPERATING PROCEDURES 


1.1 USING THE FORTRAN IV SYSTEM 

Figure 1-1 outlines the steps required to prepare a FORTRAN IV source 
program for execution under the RT-11 or RSTS/E executive: (1) 
compilation, (2) linking, and (3) execution. 



Figure 1-1 Steps in Compiling and Executing a FORTRAN IV Program 


Step 1 in Figure 1-1 is initiated by running the FORTRAN IV Compiler, 
FORTRAN, accompanied by a command string that describes the input and 
output files, and desired options to be used by the compiler. The 
compiler generates an object file which must be linked by the linker 
prior to execution. 

Step 2 is initiated by running the linker, LINK, accompanied by a 
similar command string. The linker combines all program units and the 
necessary routines from the FORTRAN Library, and generates a memory 
image file. 

Step 3 is initiated by the monitor RUN command for both RT-11 and 
RSTS/E. 


1.1.1 Compiler Generated Code 

The FORTRAN IV compiler translates the symbolic (FORTRAN) program into 
an object program in binary form, resulting in machine instructions. 
If you find that procedures and instructions in a high level language 
like FORTRAN sometimes restrict your freedom to handle data as you 
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OPERATING PROCEDURES 


would like, you can insert an assembly language routine as you find it 
desirable. This process is covered more fully in 2.3. 

The FORTRAN IV compiler produces two types of object code for a 
program: 

inline (PDP-11 machine language); and 
threaded (linked OTS references). 

See 2.2 for a further description of the object code produced. The 
default value assumed for the /CODE (or /I) option (see 1.1.1.1) is 
determined at installation time to satisfy the configuration in which 
the compiler is installed. 


1.1.1.1 Code Options - Inline code is selected for RT-11 through the 
keyboard monitor command* options /CODE:EAE, /CODEiEIS, or /CODE:FIS; 
and for RSTS/E through options /I:EAE, /I:EIS, or /I:FIS. Throughout 
this guide, the RT-11 option is given first, followed by the RSTS/E 
equivalent in parentheses. Thus: /NOLINENUMBERS (/S). Take care to 
select the option suitable to the available hardware configuration. 
Some configurations will not support execution of inline code. Table 
1-1 shows valid options for certain configurations. 


Table 1-1 

Valid Options vs Configuration 


Hardware 

Hardware Arithmetic Options 

Valid Code Options 

KEVll 

KE11-A 

KE11-B 

KE11-E 

KEll-F 

/CODE: (/I:) 

Configuration 

11/04, 11/05 

- 

NO 

NO 

_ 


THR 

11/10 






11/15, 11/20 

- 

YES 

YES 

- 

- 

EAE or THR 

11/03 or LSI-11 

NO 

- 

- 

- 

- 

THR 


YES 

- 

- 

- 

- 

EIS, FIS or THR 

11/35 or 11/40 

- 

NO 

NO 

NO 

NO 

THR 


- 

YES 

NO 

NO 

NO 

EAE or THR 


- 

NO 

YES 

NO 

NO 

EAE or THR 


- 

NO 

NO 

YES 

NO 

EIS or THR 


- 

NO 

NO 

YES 

YES 

EIS, FIS or THR 

11/34, 11/45, 







11/55, 11/50, 

EIS is 

standard on these processors 


EIS or THR 

11/70, 11/60 








* These English-language commands communicate with the RT-11 
operating system and control the monitor. They perform file 
maintenance, library maintenance, handler modification, program 
development, and program execution. 
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OPERATING PROCEDURES 


1.1.1.2 Code Selection and Error Messages - When, the compiler 
produces inline code (/CODE; [/I:] followed by EAE or EIS or FIS) the 
object program executes at greater speed and generally uses less 
physical memory. Inline code achieves this optimization, in part, by 
omitting instructions to detect or report certain error conditions. 
However, you can generate code for error checking by including the 
/CODE:THR (/I:THR) option in the compiler command line. Table 1-2 
demonstrates the diagnostic benefits of the threaded code option. 


Table 1-2 

Threaded Code Error Messages 


Error 

Result 



inline code 

threaded code 

1 . 

The result of an 
integer multiply 
operation can not 
be expressed as a 
one-word integer. 

No diagnostic message 
is produced. 

Execution continues 
and the result of the 
operation is truncated 
to sixteen bits. 

A fatal error occurs 
and the diagnostic 
message: "?Err 1 

Integer Overflow" is 
produced. 

2. 

A divide by zero 
occurs during integer 
arithmetic. 

No diagnostic message 
is produced and the 
result of the operation 
is undefined. 

A fatal error occurs 
and the diagnostic 
message "?Err 2 

Integer zero divide" 
is produced. 

3. 

The value of the 
arithmetic expression 
of a computed GOTO is 
less than 1 or greater 
than the number of 
labels in the list. 

No diagnostic message 
is produced. Execution 
continues at the next 
executable statement. 

The warning diagnostic 
"?Err 4 Computed GOTO 
out of range" is 
produced. Execution 
resumes at the next 
executable statement. 


1.1.2 File Name Specifications 

The FORTRAN and LINK commands, respectively, pass file name 
specifications to the FORTRAN IV compiler and linker. The designator 
•typ (type) is used for RT-11. The RSTS/E equivalent is .ext 
(extension). See Table 1-3 for device specifications, and Section 

1.2.2 for compiler options. 

Each file name specification (filespec) has the form: 

RT-11 RSTS/E 

devjfilnam.typ dev:[p,pn]filnam.ext<prot>/sw 


where 


dev: is an optional 2- to 3-character name specifying a 

legal device code as shown in Table 1-3 for a 
logical device name. If the device code is 

omitted, the default storage (DK:) is used for 
RT-11 and the public structure (SY:) is used for 
RSTS/E. 

filnam is any 1- to 6-character alphanumeric file name. 
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.typ (RT-11) is any 0- to 3-character alphanumeric extension, 
.ext (RSTS/E) 


If one is not specified, the FORTRAN IV Compiler 
supplies, by default, certain extensions as shown 
in Table 1-4. 

The following apply to RSTS/E only: 

[p,pn] is a RSTS/E project (p), programmer number (pn) 

which is used to identify the account under which 
the file is stored. 

<prot> is a RSTS/E protection code restricting access to 

a file. The degree of restriction is determined 
by a code or combination of codes as shown in 
Table 1-5. Protection codes have effect only on 
output files. 

/ sw is an RSTS/E option and consists of either or both 

the following RSTS/E file specification switches. 
(Refer to the RSTS/E Programming Manual for 
further information.) 

/CL:n set clustersize of (output) file to n. 

/MO:n use mode n when opening the file. 

The protection code is a string of one to three decimal digits 
enclosed by angle brackets <> and determines the file's degree of 
protection on two levels: the actions - reading, writing, and 

deleting - against which it is protected, and the user or class of 
users against whom it is protected. There are three such user 
classes, which the system recognizes by project-programmer numbers 

1. The individual user (owner) 

who is recognized by his programmer number: [200,25]. 

2. The user's project group 

which is recognized by the user's project number: 

[200,25],[200,57],[200,70]. 

3. All other users on the system 

who are recognized by the existence of valid 

project-programmer numbers: [ 225 ,60] , [250,35],[254,10]. 

Typically, a file's total protection code is the sum of the desired 
combination of individual codes. A data file with protection 
<60> - the usual system default - is protected against reading, 
writing, and deleting by all users except its owner: <60>=4+8+16+32. 
For detailed information, see the RSTS/E System User's Guide. 
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Table 1-3 

Device Specifications 


Device 

RT-11 

RSTS/E 

Card reader 

CR: 

CR: 

TA11 cassette (n=0 or 1) 

CTn: 

- 

Default storage 

DK: 

SY: 

RK11/RK05 (n=0 to 7) 

RKn: 

DKn: 

RK611/RK06 (n=0 to 7) 

DMn: 

DMn: 

RP02 or RP03 disk (n=0 to 7) 

DPn: 

DPn: 

RP04, RP05 or RP06 disk (n=0 to 7) 

- 

DBn: 

RJS03/4 disk (n=0 to 7) 

DSn: 

DSn: 

TC11 DECtape (n=0 to 7) 

DTn: 

DTn: 

RX01 floppy disk 

DXn:(0 to 3) 

DXn:(0 to 7) 

Line printer (n=0 to 7) 

LP: 

LPn: 

TUI6 magtape (n=0 to 7) 

MMn: 

MMn: 

TU10 or TS03 magtape (n=0 to 7) 

MTn: 

MTn: 

Combined punch and reader 

PC: 

- 

High speed paper tape punch 

PC: 

PP: 

High speed paper tape reader 

PC: 

PR: 

RFll fixed-head disk drive 

RF: 

DFO: 

System device 

SY: 

SY: 

Specified unit from which the 
system was bootstrapped 

SYn: 

SYO: 

Current user 

TT: 

KB: 

terminal 


TT: or TI: 

Auxiliary terminal 

TTn: 

- 


For more information on device specifications refer to the RT-11 
System User's Guide and the RSTS/E System User's Guide. 





c 
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Table 1-4 

File Name Types (Extensions) 

(the assumed type (extension) on the Input File is .FOR) 


File 

Default Type (Extension) 
on Output File 

Object file 

.OBJ 

Listing file 

. LST 

Load Map file 

.MAP 

Save Image file 

.SAV 

Absolute Binary file 

.LQA (/L) 

Relocatable Image file 

.REL (/R) 


(RT-11 only) 



Table 1-5 

File Protection Codes 


Code 

Meaning 

1 

Read protection against owner 

2 

Write protection against owner 

4 

Read protection against owner's project group 

8 

Write protection against owner's project group 

16 

Read protection against all others who do not 
have owner's project number 

32 

Write protection against all others who do not 
have owner's project number 

64 

Executable program: can be run only 


Individual codes added to the compiled 
protection <64> have meanings different from 
those of the data file protection codes above. 
These compiled codes follow: 

1 

Execute protection against owner 

2 

Read and write protection against owner 

4 

Execute protection against owner's project 
group 

8 

Read and write protection against owner's 
project group 

16 

Execute protection against all others who do 
not have owner's project number 

32 

Read and write protection against all others 
who do not have owner's project number 

128 

Program with temporary privileges (normally 
occurs only when file's protection includes 
<64>). 
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1.1.3 Locating a File 

The FORTRAN IV compiler locates a file by searching the specified 
device for the file name with the specified file type (RT-11), or 
extension (RSTS/E). The compiler searches default storage (public 
structure on RSTS/E) when the device is not specified and assumes .FOR 
when a file type or extension is not specified. 

Under the RSTS/E operating system, the computer seeks the specified 
account [project, programmer] number. When the account number is not 
specified, the compiler searches the current user's directory and 
proceeds to the system library [1,2] if the file is not in the user's 
directory. The protection code identifies the read and write access 
to be granted the user of the located file. If a protection code is 
not specified on output, the system default code (usually 60) is used. 

If the file cannot be located or is protected against the user, the 
compiler prints the following message: 

7FORTRAN-F-FILE NOT FOUND 

A similar form of this message appears if a file name specification 
given to a utility program (e.g., MACRO, LINK, etc.) references a file 
which cannot be found or is protected against the user. 


1.2 RUNNING THE FORTRAN IV COMPILER 

The FORTRAN IV Compiler and Linker accept a command string of the 
form: 


output = input/option (/sw) 
where: 

output is the output file name specification(s). 

input is the input file name specification(s). 

/option (RT—11) is one or more options used to request certain 
/sw (RSTS/E) functions from the FORTRAN IV Compiler and 
Linker. Options are covered in Section 1.2.2. 
Options may be appended to any file specification 
in the command string. 

Note that imbedded blanks are not permitted in command string 
specifications. 


1.2.1 Under RT-11 (with Keyboard Monitor Commands) 

To compile a FORTRAN program either of these commands is given: 

FORTRAN[/option...] filespec[/option...][...filespec[/option...]] 
or 

FORTRAN[/option...] 

FILES? filespec[/option...][...filespec[/option...]] 

(where filespec represents a source file to be compiled). 
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When more than one file is listed for a single compilation, separate 
the files by plus (+) signs. FORTRAN will create an output file with 
the same name as the first input file and give it a .OBJ file type. 
However, if you separate the input files by commas, FORTRAN will 
produce a .OBJ file for each input file listed. 


For example: 

FORTRAN/LIST/SHOW:ALL/NOLINENUMBERS TEST1+TEST2 

compiles TESTl.FOR and TEST2.FOR together and produces TESTl.OBJ. A 
listing of the compilation complete with source, storage map and code 
listings will be sent to the line printer device, LP:. Generation of 
Internal Sequence Numbers (ISN's) in the object program will be 
disabled. 


1.2.1.1 Under RSTS/E - To compile a FORTRAN program the command 
given: 

RUN $FORTRAN 
* 


is 



The FORTRAN IV Compiler then prints an asterisk (*) to indicate that 
it is ready to accept a command string. 

The FORTRAN IV Compiler can produce two output files: an object file 
and a listing file. As many as six FORTRAN IV source language files 
are permitted as input files. If multiple input files are given, they 
are considered to be logically concatenated. However, source lines 
must not be broken over file boundaries. 

An input file which resides on a random-access device can contain more 
than one program unit. The object code for all program units to be 
concatenated at LINK time goes to the resulting single object file. 

A sample FORTRAN IV Compiler command sequence is shown below: 

RUN $FORTRAN 
*OBJECT,LIST=FILE1 

This command string directs the compiler to take the source file 
FILEl.FOR from the current account on the public structure, and output 
the files LIST.LST and OBJECT.OBJ to the current account on the public 
structure. 

Either of the compiler output files can be eliminated by omitting its 
file specification from the command string. For example: 

RUN $FORTRAN 
*FILEl=FILEl 

produces FILEl.OBJ on the default device but no listing file, while 
*,LP:=FILEl 

produces a listing on the line printer, but no object module output. 
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1.2.2 Compiler Options (Switches) 

The FORTRAN IV Compiler command strings utilize specified options 
(switches) of either octal or decimal values on the input and output 
file specifications. Any option of the form /S:n causes n to be 
interpreted as an octal value (as long as n contains only the digit 
0-7); whereas, /S:n. causes n to be interpreted as a decimal value. 
RT-11 and RSTS/E FORTRAN IV Compiler options (switches) are described 
in Table 1-6. 


Table 1-6 

Compiler Options (Switches)* 

(defaults are determined at installation time) 


€ 



RT-11 

Option 

RSTS/E 

Switch 

Explanation 

/ALLOCATE: n 

- 

Used after the /OBJECT or /LIST 
option to guarantee space for a 
maximum file size of n blocks. 

/CODE:xxx 

/I:xxx 

Selects type of object code to be 
generated. Defaults to value 
selected at installation. The 
valid values are: 



EAE (selects EAE hardware) 

EIS (selects EIS hardware) 

FIS (selects EIS and FIS 

hardware) 

THR (selects threaded code) 

/DIAGNOSE 

/B 

Enables expanded listings of 
compiler internal diagnostic 
information. 

/EXTEND 

/E 

Allow source line input from 

columns 73-80. 

/HEADER 

/o 

Prints an "Options-In-Effect" 

section prefacing the listing. 

/I4 

/T 

Default to two word integers (1*4) 
(normally defaults to one word 
integers (1*2)) . 

/LINENUMBERS 


Indicates Internal Sequence 
Numbers are to be included in the 
executable program for routine 
diagnostics. 

/LIST[:filespec] 

- 

Generates a listing. A file name 
can be optionally specified. 

/NOLINENUMBERS 

/s 

Suppress generation of Internal 
Sequence Numbers. 


* RT-11 users may use the RSTS/E switch when the compiler is 

invoked with the RUN command. 


(continued on next page) 
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Table 1-6 (Cont.) 

Compiler Options (Switches)* 

(defaults are determined at installation time) 


RT-11 

Option 

RSTS/E 

Switch 

Explanation 

/NOOBJECT 

- 

Does not generate object files. 

* 

/Q 

Inhibits printing names of program 
units (from program, FUNCTION, 
SUBROUTINE, and BLOCK DATA 
statements) as each program unit 
is compiled. Note that .MAIN, 
refers to the main program; and 
.DATA. refers to an unnamed BLOCK 
DATA. 

/NOOPTIMIZE:xxx 

/M:xxx 

Used to disable certain 
optimizations. This option takes 
multiple arguments, chosen from 
the following list: 



SPD disable optimization for 

program speed. Optimization 
will now take place for 

minimal program size. 

CSE disable common subexpression 
elimination. 

STR disable strength reduction 

optimization. 

BND disable global register 

bindings for inline code 

generation. 

/NOSWAP 

/u 

Disable USR swapping at runtime. 

/NOVECTORS 

/V 

Suppress array vectoring of 

multi-dimensional arrays. 

/OBJECT[:filespec] 


Produces an object file (default). 

The destination for the object 
file can be optionally specified. 

/ONDEBUG 

/D 

Compile lines with a "D" in column 
one (for debugging purposes). 

/OPTIMIZE:xxx 

/P:xxx 

Selects optimization level with 
value supplied. Used to enable 
certain optimizations when 
desired. 



SPD Optimize for speed of object 
program execution as opposed 
to minimal program size. 

CSE enable common subexpression 
elimination. 


* RT-11 users may use the RSTS/E switch when the compiler is 

invoked with the RUN command. 


(continued on next page) 
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Table 1-6 (Cont.) 

Compiler Options (Switches)* 

(defaults are determined at installation time) 


RT-11 

Option 

RSTS/E 

Switch 

Explanation 



STR enable strength reduction 

optimization. 

BND enable global register 

bindings for inline code 

generation. 

* 

/z 

Causes pure code and pure data 
sections to take RO (read-only) 
attribute. 

/RECORD: n 

/R: n 

Specifies the maximum record 
length (in bytes) on runtime I/O 
(4<n<4095). 

/SHOW[:n] 

/L[:n] 

Specifies the listing options. 
The argument n is encoded as 
follows: 



0 or null - list diagnostics only 

1 or SRC - list source program 

and diagnostics only 

2 or MAP - list storage map and 

diagnostics only 

4 or COD - list generated code 

and diagnostics only 



Any combination of the above list 
options may be specified by 
summing the numeric argument 
values for the desired list 
options. For example: 



7 or ALL 



requests a source listing, a 
storage map, and a generated code 
listing. If this option is 
omitted, the default option is 
/SHOW:3, (/L:3) source and storage 
map. 

/STATISTICS 

/A 

Print compilation statistics. 

/SWAP 

- 

Allows the USR to swap over the 
FORTRAN program (default). 

/UNITS:n 

/N: n 

Allows a maximum of n 
simultaneously open I/O channels 
at run-time (l<n<15). 


* RT-11 users may use the RSTS/E switch when the compiler is 

invoked with the RUN command. 


(continued on next page) 
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Table 1-6 (Cont.) 

Compiler Options (Switches)* 

(defaults are determined at installation time) 


RT-11 

Option 

RSTS/E 

Switch 

Explanation 

/VECTORS 

- 

Uses tables to 

multi-dimensional 
(default) . 

access 

arrays 

/WARNINGS 

/W 

Enable compiler warning 
diagnostics; used in conjunction 
with /SHOW (/L) option. 

* 

/X:xxx 

Indicates cross-compilation for 
the target environment specified. 
Compiler diagnostic messages will 
be generated as if compilation had 
occurred under the foreign 
environment. Values are: 



RT (selects RT-11) 

RST (selects RSTS/E) 
RSX (selects RSX-11) 



* RT-11 users may use the RSTS/E switch when the compiler is 

invoked with the RUN command. 


1.2.3 Listing Formats 

You can direct the compiler to furnish any combination of five 
optional sections in the compilation listing. Use the options 
(switches) described in Section 1.2.2 to call for the list of 
options—in—effect , the generated code and the compiler statistics. 
The source program and the storage map are included by default. 
Figure 1-2 describes each section and gives an example of the 
information included. 
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FORTRAN IV V02 *01 Wed 03-Ausi-77 09t00t13 


fEX2=EX2/LJALL/i:THR/0/A 


OPTIONS IN EFFECT! 


SOURCE 

NAP 

CODE 

NOLEAPYEAR 
NOREADONLY 
LRECL«0136 
STAT 
ISNS 
N0C0L80 
USRSWAP 
NODIAGNOSE 
N0INTEGER*4 
NLCHN-06 
NODEBUG 
VECTOR 
NOWARN 
CODE♦THR 

opt i m:spd:cse:str:bnd:pep 

LOG 


FORTRAN IV V02.01 Wed 03~Aud~77 09:00t13 


PAGE 001 


0001 INTEGER INT 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 10 


REAL REAL 
COMPLEX IMAG 
DOUBLE PRECISION DBLE 
DATA INT/100/ 

REAL « INT/2 + 5* 

DBLE - REAL/2♦ +3♦1415926535D0 
IMAG = CMPLX( REAL? 3*21 ) 
WRITE (5 ?10) IMAG 
FORMAT(1X?2F8»5) 


0011 STOP 

0012 END 


FORTRAN IV Storage Map for Program Unit *MAIN* 


Local 

Variables? .PSECT 

$DATA ? 

Size 

a 000030 ( 

12♦ 

words) 


Name 

DBLE 

REAL 

Type 

R*8 

R*4 

Offset 

000020 

000004 

Name 

IMAG 

Type 

C*8 

Offset 

000010 

Name 

INT 

Type 

1*2 

Offset 

000002 


Subroutines? Functions? Statement and Processor-Defined Functions! 


Name 

Type 

Name Type 

Name Type Name Type Name 

Type 

CNPL.X 

0*8 

Figure 1-2 

A Sample Compilation Listing 



1-13 



OPERATING PROCEDURES 


FORTRAN IV Generated Code for Program Unit .MAIN ♦ 

Statement #0006 
000006 LSN* #000006 
000012 M0I$MS *DATA+*000002 
000016 DII$IS #000002 
000022 CFI* 

000024 ADF*IS *040640 
000030 M0F*SM *DATA+#000004 

Statement *0007 
000034 ISN* 

000036 M0F*MS *DATAf*000004 
000042 DIF*IS #040400 
000046 CDF* 

000050 ADD*MS $DATAP+*000020 
000054 M0D*SM *DATA+#000020 

Statement #0008 
000060 ISN* 

000062 REL* *DATAP+#000030 
000066 REL* *DATA+*000004 

000072 CAL* #000002 CMPLX+#000000 
000100 M0D*RM *DATA+*000010 

Statement *0009 
000104 ISN* 

000106 REL* *DATAP+*000016 
000112 REL* *DATAP+#000010 
000116 IFW* 

000120 REL* *DATA+#000010 

000124 TVC* 

000126 EOL* 

Statement *0011 
000130 LSN* *000013 

000134 STP* 


Compilation Statistics! 

Symbol table size! 00091 words 
Internal form size! 00039 words 
Free dynamic memory! 22254 words 

Compilation time! 00!00!02 

Figure 1-2 (Cont.) A Sample Compilation Listing 
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1.2.3.1 Options Listing - Use the options-in-effeet list as a quick 
reference to the status of each possible compiler option. Those 
preceded by 'NO' are not in effect. The maximum number of logical 
units that can be concurrently open (NLCHN) and the maximum record 
length (LRECL) are given as the default values or the values specified 
by the /UNITS:n (/N:n) and /RECORD:n (/R:n) options respectively. The 
day of the week, date, and time of compilation and a copy of the 
compiler command string for identification purposes are also 
furnished. 


1.2.3.2 Source Listing - This section lists the source program as it 
appeared in the input file. The compiler adds internal sequence 
numbers for easier reference. Note that internal sequence numbers are 
not always incremented by 1. For example, the statement following a 
logical IF has an internal sequence number two greater than that of 
the IF, because the compiler assigns one for the comparison and one 
for the associated statement. 


1.2.3.3 Storage Map Listing - This section lists all symbolic names 
referenced by the program unit. Local variables are allocated in the 
$DATA psect. The addresses of parameter variables and arrays are 
placed in the $DATA psect at subroutine invocation and are denoted by 
preceding the offset or section name. The listing includes the 
symbolic name, data type, usage, psect and offset. In the case of 
COMMON blocks, VIRTUAL arrays and array names, the listing includes 
the defined size in bytes (octal) and words (decimal) as well as the 
dimensions. 


NOTE 

Blank COMMON is described as COMMON 
BLOCK / / in the storage map, but is 

located on a LINK map as a PSECT named 

.$$$$. 


1.2.3.4 Generated Code Listing - This section contains a symbolic 
representation of the object code generated by the compiler (see 
Section 2.2) and includes a location offset into psect $CODE, the 
symbolic Object Time System (OTS) routine name and routine arguments 
of threaded code; and the equivalent assembler code for the inline 
code. When the /DIAGNOSE (/B) compiler option is used, the right-hand 
column of the inline generated code listing shows those registers 
available for use following an operation. The code generated for each 
statement provides easy cross reference by showing the same internal 
sequence number (ISN) as was specified in the source program listing. 


1.2.3.5 Compilation Statistics - This section provides a report on 
memory usage during the compilation process and elapsed wall-clock 
time for the compilation. 
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1.2.4 Compiler Memory Requirements 

RT-11 and RSTS/E differ in the amount of memory available to each for 
compilation, and the options available for obtaining additional space. 
Under RT-11, device handlers and the symbol table require a portion of 
memory during compilation. When more memory is required after 
minimizing the number of different physical devices and variable names 
specified, you can segment the program into program units small enough 
to compile in the available space. 

Under RSTS/E, you acquire additional space by switching from a 
non-privileged to a privileged account, increasing the system swap 
maximum, or segmenting the program. These options and the amount of 
memory available are treated in greater detail in the following 
subsections. 


1.2.4.1 Compiler Memory Requirements Under RT-11 - During 
compilation, the following must reside in main memory: the RT-11 
Resident Monitor (RMON), the compiler root segment, one overlay 
region, the stack, and the required device handlers (other than the 
handler for the system device which is included in the RMON). Note 
that FORTRAN will dynamically load device handlers required for 
compilation. The remaining memory provides for the symbol table and 
the internal representation of the program. In a machine with 8K 
words of memory, this allows the compilation of a program unit as 
large as several hundred statements. However, if the compiler runs 
out of memory during compilation, an error message is delivered to the 
user's terminal; see Section C.l. The program must be divided into 
two or more program units, each small enough to compile in the 
available memory. 

Since device handlers and the symbol table must be resident in memory 
during compilation, minimize the number of different physical devices 
specified in the command string and reduce the number of variable 
names to increase the amount of memory available for object code 
generation. 


1.2.4.2 Compiler Memory Requirements Under RSTS/E - The RSTS/E 
FORTRAN IV compiler acquires the maximum free memory (up to 28K words) 
allocated to the current user. The private memory maximum for the 
user's account will never exceed the SWAP MAX currently set by the 
system manager who may also restrict the dynamic memory requested by 
FORTRAN IV for every user. 

If the compiler runs out of free space during a compilation, an error 
message is delivered to the user's terminal; see Section C.l. In 
this case, you can take several actions to accommodate the 
compilation: 

1. If the compilation was attempted by a non-privileged user 
whose private swap maximum is smaller than the system swap 
maximum, the compilation may proceed, but under a privileged 
account. This may allow the compiler to acquire a larger 
memory area. Or, you can request the system manager to 
increase the private swap maximum. 

2. If a compilation terminates with insufficient space under a 
privileged account, do either of the following: 
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a. Ask the system manager to increase the FORTRAN 
compilation size limit to accommodate large compilations, 
or 

b. segment the program unit into two or more smaller program 
units, and reduce the number of variables, arrays, and 
constants to save compiler symbol table space. 


1.3 LINKING PROCEDURES 

When SYSLIB is created under RT-11 or RSTS/E to include FORLIB, the 
/LINKLIBRARY:FORLIB (/F) option is redundant, because FORLIB now is 
part of SYSLIB and is not called separately. 


1.3.1 Linking Under RT-11 

The RT-11 linker, LINK, combines one or more user-written program 
units with selected routines from any user libraries and the default 
FORTRAN IV OTS Library to form the default system subroutine library, 
SYSLIB. LINK generates a single runnable memory image file and an 
optional load map from the one or more object files created by the 
MACRO assembler or the FORTRAN IV compiler. 

The default types for the executable file are .SAV for a background or 
mapped environment program; and .REL for a foreground program. The 
default output device is DK:. 

The default name of the .SAV or .REL file is that of the first 
concatenated input object file specified. When FORLIB resides in 
SYSLIB, the required elements of the FORTRAN library will be linked 
automatically since any undefined global references are correlated and 
resolved through SYSLIB. 

The LINK command adheres to the following syntax: 

LINK[/option...] filespec[/option...][,...filespec[/option...]] 


or 


LINK[/option...] 

FILE? filespec[/option...][,...filespec[/option...]] 

where "filespec" represents the file to be linked and "options" are 
those described in Table 1-7. 


Table 1-7 

Linker Options Available Under RT-11 


Option 

Explanation 

/ALLOCATE:n 

Guarantees space for a maximum file of n 


blocks. 

/BOTTOM:n 

Specifies a bottom address for a background 


program. 


(continued on next page) 
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Linker 

Table 1-7 (Cont.) 

Options Available Under RT-11 

Option 

Explanation 

/BOUNDARYrvalue 

Starts a specific program section on a 
particular address boundary. Argument 

value, must be a power of 2. Prompts you: 

Boundary section? 

Enter name of section, then RET. 

/DEBUG[rfilespec] 

Links ODT to the linked program. 

/EXECUTEtrfilespec] 

Designates the executable file. 

/EXTEND:n 

Extends a program section to octal value n. 
Prompt: 

Extend section? 

/FILL:n 

Initializes unused locations in the load 
module to n (an octal value). 

/FOREGROUND 

Generates a .REL file for a foreground 
link. 

[:stacksize] 


/INCLUDE 

Allows subsequent entry at the keyboard of 
global symbols to be taken from any library 
and included in the linking process. When 
the /INCLUDE option is typed, the linker 
prints: 

Library search? 

Reply with the list of global symbols to be 
included in the load module. Press the 
carriage return key (RET) to enter each 
symbol in the list. 

/LDA 

Produces executable file in LDA format for 
use with the Absolute Loader. 

/LIBRARY 

Same as /LINKLIBRARY. (Included for 

compatibility with other systems.) 

/LINKLIBRARY:filespec 

This option is ignored unless a file 
specification is typed. The file 
specification is included as an object 
module library in the linking operation. 

/MAP[:filespec] 

Produces a link map on the listing device 
LP: or in the file specified. 

/NOEXECUTE 

Does not create a .SAV file. 


(continued on next page) 
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Linker 

Table 1-7 (Cont.) 

Options Available Under RT-11 

Option 

Explanation 

/PROMPT 

Causes the LINKer and LIBRarian to prompt 
for CSI formatted commands. The 

LINKer/LIBRarian treat the command strings 
as continuation lines until a // is seen. 
/PROMPT is equivalent to // mode of 

continuation. Use this option to specify 

overlays, e.g. 

.LINK/PROMPT ROOT 
*0VRl/0:1 
*0VR2/0:1 
*0VR3/0:2 
*0VR4/0:2// 

This creates 2 overlay regions with 2 
segments each. 

/ROUND:n 

Rounds up a section so that the root is a 
whole number multiple of n (a power of 2). 
Prompt: 

Round section: 

/RUN 

For background jobs only, executes the 
resulting SAV file. 

/SLOWLY 

Allows largest memory area for symbol 

table. 

/STACK[:n] 

Modifies the stack address (default is loc. 
42). Give an octal value (:nnnnnn) or else 
system prompts for a global symbol: 

Stack symbol? 

/TRANSFER[:n] 

Prompts for a global symbol to be used as 
the starting address of the program. The 
user can specify a starting address 
(represented by n). 

/WIDE 

Sets the number of columns for the width of 
the link map to 6. The default width is 
normally 3 for an 80 column wide listing. 


Examples of linker options under RT-11 are: 


1) LINK A,B,C 

links A.OBJ, B.OBJ, and C.OBJ on DK: and 

creates A.SAV on DK: 

2) LINK/MAP A 

links A.OBJ and creates A.SAV on DK: and a 
map on LP: 


3) LINK A,B,C/MAP:RKl:/EXE:RK0: 

links A.OBJ, B.OBJ, and C.OBJ. The map 
A.MAP goes to RKl: and the executable file 
A.SAV goes to RKO:. 
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4) LINK/MAP B,C,D,E/LINKLIBRARY:LIB/EXE:FOO 

links B.OBJ, C.OBJ, D.OBJ, E.OBJ and the 
library LIB.OBJ to create FOO.SAV on DK: 
and a map on LP:. 



1.3.2 Linking Under RSTS/E 

The LINK command under RSTS/E has the form: 

RUN $LINK 

* command string 

The command string has the following format: 

dev:binout,dev:mapout=dev:objl,dev:obj2,.../si/s2/s3 
where: 

dev: is a random access device for the save image output 

file (binout), and any appropriate device in all other 
instances. If dev: is not specified, the default 

device is assumed. If the output is to be LDA format 
(i.e., the /L switch was used), the output file need 
not be on a random-access device. 

binout is the name to be assigned to the linker's save image, 
or LDA format output file. This file is optional; if 
not specified, no binary output is produced. (Save 
image is the assumed output format unless the /L switch 
is used.) 

mapout is the optional load map file. 

objl,... are files of one or more object modules to be input to 
the linker (these may be library files). 

/sl/s2/s3 are optional switches as explained in Table 1-8. 

An example of the LINK command format as used with FORTRAN IV follows: 

RUN $LINK 

*LOAD,MAP=MAIN,SUBl,SUB2/F 

This command string requests LINK to combine the object module 
MAIN.OBJ with the object modules SUBl.OBJ and SUB2.0BJ into the single 
save image file LOAD.SAV. A load map file MAP.MAP is also produced. 
All files are on the public structure. 

The switch, /F, specifies that the default FORTRAN Library in the 
system library account [1,2] on the public structure, SY:FORLIB.OBJ, 
is to be searched for any routines that are not found in the other 

object modules. These include any library functions, system 

subroutines, or object time system routines. Note that the switch 
alone, without the explicit file specification, causes the default 
FORTRAN Library to be searched. This switch should be included if any 
of the object modules specified in the command string were created by 
the FORTRAN Compiler. This switch can be omitted, however, if the 
FORTRAN Library file specification, SY:$FORLIB, is explicitly included 
in the command string or if FORLIB has been installed under the name 

SYSLIB as illustrated in the following example. 

RUN $LINK 

*LOAD,MAP=MAIN 
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The optional load map file specification, if included, requests the 
linker to output a list of module names, common blocks and global 
symbols together with their absolute memory address assignments. 

See the RSTS/E FORTRAN IV Utilities Manual for a more detailed 
description of LINK. Refer to Chapter 5 of this Guide for an 
alternative procedure for invoking LINK. 


Table 1-8 

Linker Options (Switches) Under RSTS/E 


Option 

(Switch) 

Name 

Command 

Line 

Meaning 

/A 

First 

Alphabetizes the entries in the load map. 

/B:n 

First 

Bottom address of program is indicated as 
n. The bottom address determines the 
amount of stack (SP) space available to the 
program being linked. The default bottom 
is 1000 (octal), which provides 
approximately 80 words of stack. This can 
be increased by specifying the /B switch 
with an argument greater than 1000 (octal). 

/c 

Any 

Continues input specification on another 
command line. Used also with /O. 

/E:n 

First 

Allows a specified program section to be 
extended to the value given. When the /E 
switch is specified, the linker prints: 



EXTEND SECTION? pname 



Reply with the name of the program section 
whose length then becomes greater than or 
equal to the value given. It will be 
"greater than" when the object code 
requires a space larger than the value 
specified. 

/F 

First 

Instructs the linker to use the default 
FORTRAN library, FORLIB.OBJ, to resolve any 
undefined global references. Note that 
this option is not specified in the command 
line when FORLIB has been incorporated into 
SYSLIB. 

/H:n 

First 

Specifies the top (highest) address to be 
used by the relocatable code in the load 
module. The high value must be specified 
or the error message /H NO VALUE will be 
returned. The high value must be an 
unsigned even octal number. If the value 
is odd, /H ODD VALUE error is returned. If 
the value is not large enough for the 
relocatable code, /H VALUE TOO LOW error 
message is returned. 


(continued on next page) 
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Table 1-8 (Cont.) 

Linker Options (Switches) Under RSTS/E 


Option 

(Switch) 

Name 

Command 

Line 

Meaning 



Use care with the /H switch because most 
RT-11 programs use the free memory above 
the relocatable code as a dynamic working 
area for I/O buffers, device handlers, 
symbol tables, etc. The size of this area 
varies with different memory configurations 
as programs linked to a high address may 
not run in a system with less physical 
memory. /R, /B, and /H are mutually 
exclusive and give the error /x-BAD SWITCH. 

/H is the counterpart to /B. 

/i 

First 

Includes in the core image, (see Section 
1.3.3), the library object modules that 
declare the specified global symbols. 

/K: n 

First 

Intended for RSTS/E; not normally used for 
RT-11. Puts the specified value in word 56 
of the image file block 0. This value 
states that the program requires nK words 
of memory. Range for the required value is 

1 through 28. 

/L 

First 

Produces an output file in LDA format. 

/M or 
/M :n 

First 

Specifies the stack address at the terminal 
keyboard or via n. 

/0:n 

Any but 
the first 

Indicates that the program has an overlay 
structure: n specifies the overlay region 
to which the module is assigned. 

/R 

First 

(RT-11 only). Produces an output file in 
relocatable image format for execution as a 
foreground job. 

/s 

First 

Allows the maximum amount of space in 
memory to be available for the linker*s 
symbol table. (This switch should only be 
used when a particular link stream causes a 
symbol table overflow.) 

/T or 
/T: n 

First 

Specifies the transfer address at terminal 
keyboard or as the octal value for the 
switch. 


(continued on next page) 
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Table 1-8 (Cont.) 

Linker Options (Switches) Under RSTS/E 


Option 

(Switch) 

Name 

Command 

Line 

Meaning 

/U:n 

First 

Prompts the user with "ROUND SECTION": The 
user replies with the name of the program 
section to be rounded up, which must be in 
the root segment. The value given must be 
a power of 2. The specified section will 
be rounded up to a size which is a whole 
number multiple of n. Example would be to 
make the first overlay start on a block 
boundary (/U:1000) so that the root section 
and the first overlay region can be read in 
with only one read. If the specified 
section is not found, the error message 
will be "ROUND SECTION NOT FOUND". 

/W:n 

First 

Specifies the width of the map to be 
produced. The value is the number of ENTRY 
ADDR combinations to print across the page. 

If no /W is given, the default is 3 (normal 
for 80 column paper). If only /W is given, 
n defaults to 6 which is ideal for a 132 
column page. Useful range is 1 through 7. 

/X 

First 

Intended for RSTS/E; not normally used for 
RT-11. Meaning: do not output (Xmit) the 
bitmap if code below 400. Locations 
360-377 in block 0 of the load module are 
used for the bitmap. The linker normally 
stores the program usage bits in these 
eight words. Each bit represents on 
256-word block of memory. This information 
is used by the R, RUN, and GET commands 
when loading the program. Therefore care 
should be exercised in using this switch. 

/Z or 
/Z :n 

First 

Zero the unused locations in the load 
module, (e.g., those locations specified by 
.BLKW or .BLKB). If the optional value n 
is given, the unused locations are filled 
with the value n. This can help to 
eliminate random results due to errors 
referencing uninitialized memory. Zeroing 
unused locations is the default case. /Z:n 
need be used only when some value other 
than zero must be stored in unused 
locations. If the switch is not used the 
contents of locations referenced, but not 
initialized, by the program are undefined. 


(continued on next page) 
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Table 1-8 (Cont.) 

Linker Options (Switches) Under RSTS/E 


Option 

(Switch) Command 

Name Line 


Meaning 


// 


First 

and 

last 


This method provides an alternative to the 
/C (Continue) switch which must be given on 
every line except the last. The // switch 
allows additional lines of command string 
input. // is typed on the first command 
line and the linker will continue to 
request input until the next occurrence of 
//. The second occurrence of // terminates 
specification of command string input. The 
second occurrence may be on the last 
command line with an object filename or on 
a command line by itself. 


CAUTION: The use of /C and // can not be 

mixed in a link command string input 
sequence. 


Example: 


.R LINK 

*LINK,LP:=LINK0/B:500/W// 
*LNKOV1/0:1 


*LNKOV8/0:1// 


1.4 LIBRARY USAGE 

You can create a library of commonly used assembly language and 
FORTRAN functions and subroutines through the system program, LIBR, 
which provides for library creation and modification. The Librarian 
chapter of the RT-11 System User’s Guide or the RSTS/E FORTRAN IV 
Utilities Manual describes the LIBR program in detail. 

Include a library file in the LINK command string simply by adding the 
file specification to the input file list. LINK recognizes the file 
as a library file and links only the required routines. The LINK 
command string; 

*LOAD=MAIN,LIBl/F 

requests LINK to combine MAIN.OBJ with any required functions or 
subroutines contained in LIBl.OBJ. The default FORTRAN system 
library, FORLIB.OBJ ($FORLIB.OBJ on RSTS/E), is then searched for any 
other required routines. Note that /F is not specified (hence FORLIB 
will not be searched) if FORLIB has been incorporated into SYSLIB. At 
this point, any unresolved GLOBALS are resolved through SYSLIB. The 
entire memory image is output to the file LOAD.SAV. 
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If the /F option or switch is used f all user created libraries are 
searched before the default FORTRAN system library, FORLIB.OBJ 
($FORLIB.OBJ on RSTS/E)• Consult the Linker chapter of the RT-11 
System User's Guide for a detailed description of multi-library global 
resolution. 

If the linker fails for lack of symbol table space, use the /S linker 
option in your next attempt. This could slow the linking process, but 
it allows the maximum possible symbol table space. 

To maintain the integrity of the DEC-distributed FORTRAN Library, 
create a user library rather than modifying or adding to the FORTRAN 
Library (FORLIB) or to the System Library (SYSLIB). 


1.4.1 Overlay Usage 

Use the overlay feature of the linker to segment the memory image so 
that the entire program is not memory resident at one time. This 
allows the execution of a program too large for the available memory. 

An overlay structure consists of a root segment and one or more 
overlay regions. The root segment contains the FORTRAN IV main 
program, blank COMMON, subroutines, function subprograms, and any 
.PSECT that has the GLB attribute and is referenced from more than one 
segment. An overlay region is an area of memory allocated for two or 
more overlay segments, only one of which can be resident at one time. 
An overlay segment consists of one or more subroutines or function 
subprograms. 

When a call is made at runtime to a routine in an overlay segment, the 
overlay handler verifies that the segment is resident in its overlay 
region. If the segment is in memory, control passes to the routine. 
If the segment is not resident, the overlay handler reads the overlay 
segment from the memory image file into the specified overlay region. 
This destroys the previous overlay segment in that overlay region. 
Control then passes to the routine. Under RT-11, when the overlay 
program runs from a non-system device, the handler must be loaded via 
the LOAD command. 


Give careful consideration to placing routines when you divide a 
FORTRAN IV program into a root segment and overlay regions, and 
subsequently divide each overlay region into overlay segments. 
Remember that it is illegal to call a routine located in a different 
overlay segment in the same overlay region, or an overlay region with 
a lower numeric value (as specified by the linker overlay /0:n), than 
the calling routine. Divide each overlay region into overlay segments 
that never need.to be resident simultaneously. 

The FORTRAN IV main program unit must be placed in the root segment. 

In an overlay environment, subroutine calls and function subprogram 
references must refer only to one of the following: 


1. A FORTRAN library routine (e.g. ASSIGN, DCOS). 

2. A FORTRAN or assembly language routine contained in the root 
segment. 


3 . 


A FORTRAN or assembly language routine contained in the same 
overlay segment as the calling routine. 

4 
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4. A FORTRAN or assembly language routine contained in a segment 
whose region number is greater than that of the calling 
routine. 

In an overlay environment, COMMON blocks must be placed so that they 
are resident when referenced. Blank COMMON is always resident since 
it is always placed in the root segment. All named COMMON must be 
placed either in the root segment, or into the segment whose region 
number is the lowest of all segments that reference the COMMON block. 
A named COMMON block cannot be referenced by two segments in the same 
region unless the COMMON block appears in a segment of a lower region 
number. The linker automatically places a COMMON block into the root 
segment if it is referenced by the FORTRAN IV main program or a 
subprogram that is located in the root segment. Otherwise, the linker 
places a COMMON block in the first segment encountered in the linker 
command string that references that COMMON block. 

All COMMON blocks that are data initialized (by use of DATA 
statements) must be so initialized in the segment in which they are 
placed. 

The entire overlay initialization process is handled by LINK. The 

command format outlined below (and further explained in the Linker 
Chapter of the RT-11 System User's Guide or the RSTS/E FORTRAN IV 

Utilities Manual ) is used to describe the overlay structure to the 

linker. LINK combines the runtime overlay handler with the user 

program, making the overlay process completely transparent to the 
user's program. 

The size of the overlay region is automatically computed to be large 
enough to contain the largest overlay segment in that overlay region. 

The root segment and all overlay segments are contained in the memory 
image file generated by LINK. 

Two options are used to specify the overlay structure to LINK. The 
overlay option is of the form: 

/O: n 

where n is an octal number specifying the overlay region number. The 
command continuation option has two forms 

/C and // 

/C at the end of each continuation line allows the user to continue 
long command strings on the next line of input. // is used at the end 
of the first line and again at the end of the last line of input (see 
Table 1-8). 

The first line of the LINK overlay structure command string should 
contain, as the input list, all object modules that are to be included 
in the root segment. This line should be terminated with the /C 
option. The /0:n option cannot appear in the first line of the 
command string. If all modules which are to be placed in the root 
segment cannot be specified on the first command line, additional 
modules can be specified on subsequent command lines, each ending with 
a /C. The entire root segment must be specified before any overlays. 
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All subsequent lines of the command string should be terminated with 
the /0:n option (switch) specifying an overlay region and/or the /C 
option (switch). The presence of only the /C option (switch) 
specifies that this is a continuation of the previous line and 
therefore, a continuation of the specification of that overlay 
segment. The object modules on each line, or set of continuation 
lines, constitute an overlay segment and share the specified overlay 
region with all other segments in the same numeric value overlay 
region. All but the last line of the command string should contain 
the /C option (switch). 


For example, assuming that FORLIB has been built into SYSLIB, and 
given the following overlay structure description: 

1. A main program and the object module SUBl are to occupy the 
root segment. 

2. The object module SUB2 is to share an overlay region with the 
object module SUB3 (never co-resident). 

3. The object modules SUB4 and SUB5 are to share a second 
overlay region with the object modules SUB6 and SUB7. 


The following command string could be used: 


(RT-11) 


(RSTS/E) 


.LINK/PROMPT/EXE:LOAD MAIN+SUBl 

*SUB2/0:1/C 

*SUB3/0:1/C 

*SUB4/0:2/C 

*SUB5/C 

*SUB6/0:2/C 

*SUB7// 


RUN $LINK 
*LOAD=MAIN,SUBl/C 
*SUB2/0:1/C 
*SUB3/0:1/C 
*SUB4/0:2/C 
*SUB5/C 
*SUB6/0:2/C 
*SUB7 


1.4.2 Stand-Alone FORTRAN 

You can develop FORTRAN programs under the RT-11 or RSTS/E FORTRAN IV 
systems and receive output in an absolute binary format for execution 
on a satellite machine with minimum peripherals. The satellite 
machine needs only a minimum of 4K words of memory and only a 
paper-tape reader for program loading. 

You can also use the stand-alone FORTRAN capability to construct 
Read-Only Memory (ROM) applications programs. See 2.5.4 for more 
details on ROM environments. 

When operating in the stand-alone environment, the terminal is the 
only input/output device supported by FORTRAN-level input/output. 
Other devices or equipment interfaces can be supported by appropriate 
user-written assembly language subroutines. 

To generate a stand-alone program, the source program units should be 
compiled as usual. At link time, special options are specified to 
generate a stand-alone program. The /L option must be included in the 
LINK command string to cause an absolute binary format (LDA) output 
file to be generated. The /I option must also be given to allow a 
special module to be requested from the FORTRAN IV Library. This 
module is: 

$SIMRT FORTRAN IV system simulator. 
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Since the library used must reflect the hardware arithmetic options 
available on the satellite machine f you must be careful to use the 
proper FORTRAN IV Library. Hence, the system default library 
(SY:FORLIB.OBJ), which is used when the /F option (switch) is 
specified to LINK, may not be appropriate. Consult with the system 
manager (RSTS/E users) or the FORTRAN IV Installation Guide (RT-11 
users) for information on the various libraries. 

The following command sequence generates a file LOAD.LDA, which can be 
punched on paper tape and loaded, using the Absolute Loader, on any 
PDP-11. 

(RT-11) (RSTS/E) 

.LINK/LDA/INCLUDE/EXE:LOAD MAIN+SUBS RUN $LINK 

* LOAD,LP:=MAIN,SUBS/F/L/I 

LIBRARY SEARCH? $SIMRT <CR> LIBRARY SEARCH? $SIMRT 

<CR> 

<CR> <CR> 

*~C *~C 

READY 


1.5 EXECUTION PROCEDURES 


1.5.1 Execution Under RT-11 

Use the monitor RUN command to start execution of the memory image 
file generated by LINK. The command: 

.RUN dev:filespec 

causes the file on the device (DEV:) to be loaded into memory and 
executed. Filespec.sav is the file name specification as described in 
1 . 1 . 1 . 

The following example takes three FORTRAN source files containing a 
main program and several subroutines through the procedures necessary 
to compile, link, and execute that program: 

.FORTRAN/LIST MAIN+SUB,SUBT 
.LINK/MAP MAIN,SUBT 
.RUN MAIN 

This searches SYSLIB when any undefined references are present. (The 
FORTRAN OTS is assumed to have been incorporated into SYSLIB upon 
system installation.) 


1.5.2 Execution Under RSTS/E 

The following command starts execution of the memory image file 
generated by link: 

RUN filespec 
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Where no extension is specified in filespec, the following search 
occurs: 

Beginning with the first Run Time System (RTS) in the monitor's 
RTS list* and progressing sequentially through the list, the 
monitor will append each RTS's default "executable-file" 
extension to the filename given in filespec and search for the 
file in the appropriate directory. When a satisfactory extension 
is found, the associated RTS is used to execute the file. 

For example, a user has two files on his account, 

SAMPLE.BAC and 
SAMPLE.SAV 

and the default RTS is BASIC-PLUS. 

Typing 

RUN SAMPLE 

will cause SAMPLE.BAC to begin execution. 

To execute SAMPLE.SAV, the extension must be given explicitly: 

RUN SAMPLE.SAV 

At the start of execution of a FORTRAN program, an internal 
initialization routine will determine exactly how much memory is 
required by the program from two parameters: 

1. /N:xxx switch (number of logical units) 

2. /R:xxx switch (maximum record length) 

If necessary, additional memory is acquired to meet these 
requirements. 


1.6 DEBUGGING A FORTRAN IV PROGRAM 

The "debug line" capability of FORTRAN IV is effective in debugging 
because it allows a FORTRAN statement to be conditionally compiled. 
Here are some suggestions for using that capability. 

Try to locate the statement in error by typing out intermediate values 
and results. Place a "D" in column one of each source line you have 
added for debugging purposes. These lines will not be compiled unless 
you specify the debug option (/D for RSTS/E, and the keyboard monitor 
command option /ONDEBUG for RT-11) in the compiler command string. 
The program can be recompiled without the /D option after the problem 
has been corrected. All the debugging statements will be treated as 
comments. 

Use the operating system's ODT debugging aid for inline code. 


* The ordering of RTS in the list will be displayed by typing the 
SYSTAT/R command to RSTS/E. The resulting display is the entire 
contents, in order, of the monitor's RTS list with associated 
executable file extensions. 
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ODT debugging requires the generated code listing for the program (see 
Section 1.2.2, /L or /SHOW listing control option). The resulting 
numbers printed in the left margin of the listing are the octal 
offsets of the listed machine instructions within the local PSECT 
$CODE. 

Note that only one base address is listed for $CODE in the LINK map 
when multiple program units are present. To find the base of $CODE 
for a specific sub-program unit, locate the address of the entry point 
to the unit. 

The variables and data items referenced symbolically in the generated 
code listing are located in the PSECT $DATA at the offsets indicated 
by the storage map section of the compiler. All local $DATA sections 
are formed into a single allocation on the link map when multiple 
programs units are linked to form a single executable program. To 
find the base address section for a particular program unit, examine 
the word at offset 4 in the unit's $CODE section. This value will be 
the address of the base of the unit's pure data section ($DATAP). 
Examining the word at offset 6 from the $DATAP section will give the 
base address of the associated $DATA impure section. See Figure 1-3. 


$CODE Section 


SUBR:: 

+2 

+4 




JSR R4, 

$$OTI 


$$OTIS 

.WORD 

$DATAP+m 


-► m 
m+2 
m+4 
m+6 


$DATAP Section 


Program Unit Name 
in RAD50 
# of arguments 
.WORD $DATA + n 


$DATA Section 


n 





NOTE: Only one of the following will be found in any program or subprogram unit. 

MAIN:: JSR R4, $OTI - threaded main program 

SUBR:: JSR R4, $OTIS - threaded SUBR or FUNCT 

MAIN:: JSR R4, $$OTI - inline main program 

SUBR:: JSR R4, $$OTIS - inline SUBR or FUNCT 


Figure 1-3 Finding the Base Address Section 
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CHAPTER 2 


FORTRAN IV OPERATING ENVIRONMENT 


2.1 FORTRAN IV OBJECT TIME SYSTEM 

The PDP-11 FORTRAN IV Object Time System (OTS) provides the user with 
a library of common sequences of PDP-11 machine instructions invoked 
by compiled FORTRAN programs. OTS consists of many small functional 
modules from which the compiler selects only those required to 
implement the FORTRAN program. The required sequences are integrated 
with the compiler generated code during linkage to form the executable 
program. For example, if the user program performs only sequential 
access, formatted I/O, none of the direct-access I/O routines is 
included. 

The FORTRAN IV OTS comprises the following: 

1. Mathematics routines, including the FORTRAN IV library 
functions and other arithmetic routines (e.g., floating-point 
routines). 

2. Miscellaneous utility routines (RANDU, DATE, SETERR, etc.), 

3. Routines which handle various types of FORTRAN I/O. 

4. Error handling routines which process arithmetic errors, I/O 
errors, and system errors, and 

5. Miscellaneous routines required by the compiled code. 


2.2 OBJECT CODE 

The FORTRAN IV compiler translates programs written in the symbolic 
PDP-11 FORTRAN language into "object code" (machine language). The 
resulting object modules, combined with required modules from the 
FORTRAN IV OTS, form executable programs of PDP-11 machine 
instructions. 

The compiler produces two distinctly different types of object 
programs by generating either threaded code or inline code. 

When you select inline code (through the options 
/CODE: [/I:] EAE, EIS, or FIS), the compiler produces the one-to-one 
PDP-11 machine instructions required for the specific arithmetic 
hardware in the system configuration. Symbolic FORTRAN library 
routines are referenced to perform only those functions which cannot 
be achieved in short sequences of machine instructions. A program 
compiled through an inline code option produces an object program 
which conforms specifically to the type of hardware selected at 
compilation time. 
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When threaded code is generated (through the /CODE:THR [/I:THR] 
option), the object program produced uses a symbolic library routine 
to perform each operation required for program execution; the 
executable program consists of a "threaded" list of the addresses of 
library routines and appropriate operand addresses. This type of code 
generation produces an object module which operates independently of 
hardware arithmetic configuration. It may be combined with any of the 
FORTRAN IV OTS libraries to produce a valid executable program for 
each type of arithmetic hardware without any need for recompilation. 

Consider the following when you decide whether to use inline or 
threaded code. 

When the program does not contain REALM, REALM f or C0MPLEX*8 
arithmetic operations 

1. Inline code always executes faster than threaded. 

2. The differences in size between inline and threaded programs 
are slight. 

When the program contains large amounts of REALM, REAL*8, and 
C0MPLEX*8 arithmetic (scientific computation) 

1. Threaded code is much smaller than inline code. 

2. Execution speed is nearly the same for both. 

See Table 2-1. 



Table 2-1 

Comparison of Threaded and Inline Code 
for the Statement: I=J*K+REAL 


Threaded 

Code 

Inline Code 




For FIS 


For EIS* 


For EAE 

MOI$MS 

J 

MOV 

J, Rl 

MOV 

J, Rl 

MOV 

#$EAE,R5** 

MUI$MS 

K 

MUL 

K, Rl 

MUL 

K, Rl 

MOV 

J,(R5)+ 







MOV 

K, @R5 



MOV 

Rl,-(SP) 

MOV 

Rl,-(SP) 

MOV 

-(R5),-(SP) 

CFI$ 


JSR 

PC,$CVTIF 

JSR 

PC,$CVTIF 

JSR 

PC,$CVTIF 

ADF$MS 

REAL*** 

MOV 

REAL+2,-(SP) 

JSR 

R5,$PSH3F 

MOV 

REAL+2,-(SP) 



MOV 

REAL,-(SP) 

.WORD 

i REAL 

MOV 

REAL,-(SP) 



FADD 

SP 

.WORD 

i $ADDF 

JSR 

PC,$ADDF 

CIF$ 


JSR 

PC,$CVTFI 

JSR 

PC,$CVTFI 

JSR 

PC,$CVTFI 

MOI$SM 

I 

MOV 

(SP)+,I 

MOV 

(SP)+,I 

MOV 

(SP)+,I 


* The /NOOPTIMIZE:SPD (/M:SPD) option is used to optimize for space. 




** $EAE represents the address of the KE11-A (or -B) accumulator 
register (AC). 


***Note that the threaded code sequence for this floating point 
addition requires only two words of memory plus the size of the ADF$MS 
routine, whereas the inline code uses five words (FIS) or four or six 
words (EIS, EAE) according to the setting of the SPD optimizer option. 
This demonstrates the savings in storage in using threaded code for 
floating-point operations. 
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2.2.1 Processor-Defined Functions 

The compiler generates code inline for the following processor-defined 
functions (PDF's): 


Function 


Definition 


IABS(I) 

Integer 

absolute value 

IDIM(I,J) 

Integer 

positive difference 

ISIGN(I,J) 

Integer 

transfer of sign 

MOD(I,J) 

Integer 

remainder 

MINO(I,J) 

Integer 

minimum of Integer list 

MAXO(I,J) 

Integer 

maximum from Integer list 

IFIX(A) 

Real to 

integer conversion 

FLOAT(I) 

Integer 

to Real conversion 

REAL(C) 

Complex 

to Real conversion, obtain 

DBLE(A) 

Real to 

Double conversion 

SNGL(A) 

Double i 

to Real conversion 


Since the code for a PDF is generated by the compiler, no global 
reference to the function name is produced. A problem could arise 
when the function call is to be interpreted as a call to a 
user-written routine. To force the compiler to treat the apparent PDF 
call as a reference to a user routine, specify the routine as external 
to the program with an EXTERNAL statement. 

For example, when compiling the statement: 

I = IABS(J) 

code equivalent to the following is produced: 


MOV 

BPL 

NEG 


1 $: 


J, I 
1 $ 

I 


By including the statement 
EXTERNAL IABS 

code equivalent to the following will be produced; 

.GLOBL IABS 
MOV #J,-(SP) 

MOV #1,-(SP) 

MOV SP,R5 

J SR PC,IABS 

CMP (SP)+,(SP)+ 

MOV RO,I 


2.2.2 VIRTUAL Array Options (RT-11 Only) 

The VIRTUAL statement declares arrays which are assigned space outside 
the program's address space and are manipulated through the VIRTUAL 
array facility of FORTRAN IV. VIRTUAL allows arrays to be stored in 
large data areas which are accessed at high speed. The VIRTUAL array 
statement is supported for RT-11, but is not currently available under 
RSTS/E. See Appendix D of the FORTRAN Language Reference Manual for 
detailed VIRTUAL information. 
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VIRTUAL arrays are limited only by the number of elements, not by the 
total storage available. Under RT-11, all memory above the initial 
28K words is available for VIRTUAL array storage. Except for the size 
of physical memory, there is no limit to the number or to the total 
size of all VIRTUAL arrays a program can access. The maximum number 
of elements in a VIRTUAL array is 32767. Thus the largest L0GICAL*1 
VIRTUAL array is 16K words, or 32767 bytes. The largest REAL*8 
VIRTUAL array is 128K words or 262136 bytes. This is a total of 32767 
elements, each of which occupies 8 bytes. The limit is 32767 elements 
because FORTRAN IV requires array subscripts to be positive integers. 

VIRTUAL support for RT-11 uses the Program Logical Address Space 
(PLAS) extensions for FB monitor with KT-11 support. The FORTRAN OTS 
directly manipulates the KT-11 mapping registers to provide VIRTUAL 
support for RT-11 Single Job and FB monitors without KT-11 support. 

All VIRTUAL arrays declared in a program unit are allocated in a 
.VSECT, a type of program section. The compiler concurrently 
generates a .VSECT additive type of relocation as it references the 
VIRTUAL array in the object program. 

The .VSECT program section is unnamed and has the "concatenate" 
attribute. This allows the accumulating of all VIRTUAL storage 
requirements for a linked job or task as the concatenation of the 
.VSECTS. 

The syntax of the VIRTUAL statement is identical to that of the 
DIMENSION statement and involves only substituting the keyword VIRTUAL 
for the keyword DIMENSION. However, there is a significant semantic 
difference between the two because of the limitations imposed on the 
DIMENSION statement. Local arrays declared by the DIMENSION statement 
are limited by the maximum memory available to the program. Section 
2.2.6 demonstrates how to convert an existing program to use the 
VIRTUAL feature. The three VIRTUAL array options available in 
building the RT-11 OTS are: 

NOVIR.OBJ 

VIRP.OBJ 

VIRNP.OBJ 


2.2.3 NOVIR.OBJ 

This module specifies no VIRTUAL array support and is intended for the 
user who prefers to optimize the size of FORLIB rather than use 
VIRTUAL array support. When NOVIR.OBJ is included in the library all 
references to the VIRTUAL array routines (made by the compiler when 
VIRTUAL arrays are available) will remain unresolved by LINK. 


2.2.4 VIRP.OBJ 

This module is for PLAS support and requires both the XM Monitor and 
EIS (or FIS or FPU) hardware for program execution. Failure to adhere 
to these requirements will result in runtime error #64 — VIRTUAL 
array initialization failure. VIRP uses the 4K words of VIRTUAL 
memory addresses starting at 160000 octal — normally the PDP-11 I/O 
page — for a window. For this reason, programs using VIRP support 
may not reference the I/O page. Programs linked with VIRTUAL support 
must be run as privileged jobs. Note that this is the default for 
.SAV files output by LINK. 


2-4 








FORTRAN IV OPERATING ENVIRONMENT 


The program initialization code uses the PLAS .ALLOC directive to 
allocate a region of the required size from the extended memory pool. 
This region is a contiguous section of physical memory large enough to 
include all VIRTUAL arrays declared in the executable program. 


NOTE 

Failure to allocate a region of the 
proper size will result in a FATAL 
routine FORTRAN error message. 


A window of 4K words initially maps the first 4K words of the VIRTUAL 
array region. When a VIRTUAL array element lies outside the window, 
the PLAS .REMAP directive causes a window-turn operation to allow 
access. 


2.2.5 VIRNP.OBJ 

This module provides VIRTUAL array support for the Single Job (SJ) and 
the Foreground/Background (FB) monitors. VIRNP supports full 11/70 
22-bit addressing capability. The largest amount of VIRTUAL memory 
available is 4068K words (4096K minus 28K). VIRNP supports the KTll 
Memory Management Unit directly, mapping the job and RT-11 to kernel 
space and the VIRTUAL array to user space. The module turns on the 
KTll immediately before a VIRTUAL array fetch/store, and off 
immediately after; thus keeping KTll mapping overhead to a minimum. 

When VIRNP support is used under the FB monitor, the foreground and 
the background jobs cannot use VIRTUAL arrays concurrently, because 
both will reference the same region of extended memory for array 
storage. The XM monitor and PLAS VIRTUAL support must be used when 
two concurrent jobs require access to VIRTUAL arrays. 


2.2.6 Converting a Program to VIRTUAL 

First, be sure to observe the usage restrictions for VIRTUAL covered 
in Appendix D of the PDP-11 FORTRAN Language Reference Manual. To 
convert the existing program, declare the arrays by using the VIRTUAL 
instead of the DIMENSION statement. The program does not require 
additional access coding. 

The following example illustrates a general, minimum-effort program 
conversion. 

1. Identify the non-VIRTUAL arrays that are to be converted to 
VIRTUAL arrays. 

2. Locate the DIMENSION and the type declaration statements in 

which these arrays are declared. Replace DIMENSION 

statements with equivalent VIRTUAL statements. Replace 
array-declarative type declaration statements with VIRTUAL 
statements to define the array dimensions, and remove the 
dimensioning information from the type declaration 

statements. 


2-5 






FORTRAN IV OPERATING ENVIRONMENT 


3. Compile the program. Observe all compilation errors? these 
will occur where the syntax restrictions outlined in the 
PDP-11 FORTRAN Language Reference Manual have been violated. 
In some cases, you may need to reformulate the data 
structures to use VIRTUAL arrays effectively. 

4. Check the code to ensure that VIRTUAL array parameters are 
passed correctly to subprograms. 

a. If the argument list of a subprogram call includes an 
unsubscripted VIRTUAL array name, the argument list of 
the SUBROUTINE or FUNCTION statement must have an 
unsubscripted VIRTUAL array name in its corresponding 
dummy argument. This establishes access to the VIRTUAL 
array for the subprogram. The declaration of the VIRTUAL 
array in the subprogram must be dimensionally compatible 
with the VIRTUAL declaration in the calling program. All 
changes to the VIRTUAL array that occurred during 
subprogram execution are retained when control returns to 
the calling program. 

When you pass entire arrays as subprogram parameters, be 
certain that the matching arguments are defined as both 
VIRTUAL or both non-VIRTUAL. Mismatches of array types 
are not detectable at either compilation or execution 
time, and the results are undefined. 

b. If the argument list of a subprogram reference includes a 
reference to a VIRTUAL array element, the matching formal 
parameter in the SUBROUTINE or FUNCTION statement must be 
a non-VIRTUAL variable. Value assignments to the formal 
parameter occurring within the subprogram do not alter 
the stored value of the VIRTUAL array element in the 
calling program. To alter the value of that element, the 
calling program must include a separate assignment 
statement that references the VIRTUAL array element 
directly. 

The following example demonstrates the process of changing non-VIRTUAL 
arrays to VIRTUAL arrays. 

DIMENSION A(1000,20) 

INTEGERS B(1000) 

DATA B/1000*0/ 

CALL ABC(A,B,1000,20) 

WRITE(2,*)(A(I,1),1=1,1000) 

END 

SUBROUTINE ABC(X,Y,N,M) 

DIMENSION X(N,M) 

INTEGER*2 Y(N) 

DO 10, 1=1,N 
10 X(1,1)=Y (I) 

RETURN 

END 

This program contains two arrays, named A and B. 

Array A is declared in a DIMENSION statement and is of the default 
data type. Thus, substituting the keyword VIRTUAL for the keyword 
DIMENSION is sufficient for its conversion. 
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Note, however, that array B and its dimensions is declared in a type 
declaration statement (in the second line of the program). 

To convert B into a VIRTUAL array, its declarator must be moved to a 
VIRTUAL statement; also, the variable B must remain in the type 
declaration statement, but without a dimension specification. 

A and B are both passed to subroutine ABC as arrays, rather than array 
elements. Thus the associated subroutine parameters must also be 
converted to VIRTUAL arrays. 

The following compiled listing illustrates the program after the first 
phase of the conversion. 


FORTRAN IV V02*01 Wed 03-AuSh-77 09t00J20 


PAGE 001 


0001 VIRTUAL A<1000? 20) ? B(IOOO) 

0002 INTEGER*2 B 

0003 DATA 6/1000*0/ 


0004 

0005 

0006 


CALL ABC(A ? B ?1000 ? 20) 

WRITE(2?*) <A(I?1) ? I : =l,1000> 
END 


FORTRAN IV Diagnostics for Program Unit ♦MAIN* 

In line 0003? Error* Usasle of variable "B" invalid 

FORTRAN IV Storage Map for Program Unit *MAIN* 

Local Variables ? *PSECT $DATA ? Size ~ 000006 ( 3* words) 

Name Type Offset Name Type Offset Name Type Offset 

I 1*2 000000 

VIRTUAL Arrays? Total Size » 00240200 ( 41024* words) 

Name Type Offset -Size- Dimensions 

A R*4 Vec 00000000 00234200 ( 40000*) <1000?20) 

B 1*2 00234200 00003720 ( 1000*) (1000) 

Subroutines? Functions? Statement and Processor-Defined Functions* 

Name Type Name Type Name Type Name Type Name Type 
ABC R*4 


FORTRAN IV V02.01 Wed 03-Aud~77 09:00J22 


PAGE 001 


0001 

0002 

0003 

0004 

0005 10 

0006 
0007 


SUBROUTINE ABC < X ? Y ? M ? N) 
VIRTUAL Y < N) ? X(N?M) 
INTEGER*2 Y 
DO 10? I»1fN 
X(I?1>~Y<I) 

RETURN 

END 


FORTRAN IV Storage Map for Prodram Unit 

Local Variables? *PSECT *DATA? Size « 000012 

Name Type Offset Name Type Offset 

I 1*2 000010 M 1*2 0 000004 

VIRTUAL Arrays? Total Size ~ 00000000 ( 


ABC 

< 5* words) 

Name Type Offset 
N 1*2 (? 000006 

0* words) 
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Name 

Type 


Offset 


-Size- 



X 

R*4 

0 

000000 

#### 

( 

**** 

) (N * M) 

Y 

1*2 

0 

000002 

**** 

( 

**** 

) (N) 


Note that the main program compilation causes an error message. DATA 
statements must not refer to VIRTUAL arrays. The user substitutes a 
DO loop to achieve the same result. 

The following listing shows the program after the conversion is 
completed. 


FORTRAN IV 


V02 *01 Wed 03-Aug-77 09J00 1 25 


PAGE 001 


0001 


VIRTUAL A<1000* 20) * B(IOOO) 


0002 
0003 
0004 5 

0005 
0006 
0007 


INTEGER*2 B 
DO 5* I = l>1000 
B(I)=0 

CALL ABC(A * B * 1000 * 20) 

WRITE(2**) <A<1*1)*1 = 1*1000) 
END 


FORTRAN IV 


Storage Map for Program Unit *MAIN* 


Local Variables* *PSECT *DATA* Size * 000006 ( 3* words) 

Name Type Offset Name Type Offset Name Type Offset 

I 1*2 000000 


VIRTUAL Arrays* Total Size * 00240200 ( 41024* words) 

Name Type Offset -Size- Dimensions 

A R*4 Vec 00000000 00234200 < 40000*) (1000*20) 

B 1*2 00234200 00003720 ( 1000*) (1000) 

Subroutines* Functions* Statement and Processor-Defined FunctionsJ 

Name Type Name Type Name Type Name Type Name Type 
ABC R*4 


FORTRAN IV V02*01 Wed 03-Aug-77 09S00S27 


PAGE 001 


0001 

0002 

0003 

0004 


SUBROUTINE ABC(X*Y*M*N) 
VIRTUAL Y(N)* X(N*M> 
INTEGER*2 Y 
DO 10* 1 = 1 * N 


0005 10 X(I * 1)=Y(I) 


0006 RETURN 

0007 END 


FORTRAN IV Storage Map for Program Unit ABC 

Local Variables* *PSECT $DATA* Size » 000012 ( 5* words) 

Name Type Offset Name Type Offset Name Type Offset 

I 1*2 000010 M 1*2 0 000004 N 1*2 0 000006 


VIRTUAL Arrays* Total Size * 00000000 ( 0* words) 


Name 

Type 


Offset 

-Size- 

Dimensions 

X 

R*4 

0 

000000 

**#* < **** ) 

(N * M) 

Y 

1*2 

0 

000002 

**#* ( #*** ) 

(N) 
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2.3 SUBPROGRAM LINKAGE 

The linking process operates identically for all subprograms, 
including those written by the user in FORTRAN IV and in assembly 
language. 

The following instruction passes control to the subprogram: 

JSR PC, routine 

Register 5 (R5) contains the address of an argument list having the 
following format: 


R5- 


undefined 


#of arguments 


address of argument #1 


address of argument #2 


address of argument #n 


The value -1 is stored in the argument list as the address of any null 
arguments. Null arguments in CALL statements appear as successive 
commas, e.g., CALL SUB (A,,B) 


NOTE 

Be certain that the called program does 
not modify the argument list passed by 
the calling program to a subprogram. 


The instruction 
RTS PC 

returns control to the calling program. 

The following is an example of argument transmission: An assembly 

language subroutine is written to sum all integer arguments it finds 
in each parameter list, and to return the result to the FORTRAN IV 
program as the value of a final, additional argument. The FORTRAN 
CALL statements which invoke this routine take the form: 

CALL IADD(numl,num2,...,numn,isum) 

where numl through numn represent a variable number of integer 
quantities to be summed, and isum represents the variable or array 
element into which the sum is to be placed. 
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Given the following MACRO-11 subprogram 



.TITLE 

ADDER 


.GLOBL 

IADD 

I ADD: 

MOV 

(R5)+,R0 


CLR 

R1 


DECB 

R0 

1$: 

ADD 

@(R5)+,R1 


DECB 

R0 


BNE 

1$ 


MOV 

R1,@(R5)+ 


RTS 

PC 


the sequence of FORTRAN IV calls: 



GET # OF ARGUMENTS 
PREPARE WORKING REG. 
FIND # OF TERMS TO ADD 
ADD NEXT TERM 
DECREMENT COUNTER 
LOOP IF NOT DONE 
RETURN RESULT 
RETURN CONTROL 


CALL IADD(1,5,7,I) 

CALL IADD(15,30,10,20,5,J) 


would cause the variable I to be given the value 13, and the 
J to be assigned the value 80. 


variable 



2.3.1 Subprogram Register Usage 

A subprogram that is called by a FORTRAN IV program need not preserve 
any registers. However, the contents of the hardware stack must be 
kept such that each 'push' onto the stack is matched by a 'pop' from 
the stack prior to exiting from the routine. 

User-written assembly language programs that call FORTRAN IV 
subprograms must preserve any pertinent registers before calling the 
FORTRAN IV routine and restore the registers, if necessary, upon 
return. 

Function subprograms return a single result in the hardware registers. 
The register assignments for returning the different variable types 
are listed in Table 2-2. 



Table 2-2 

Return Value Convention for Function Subprograms 


Type 

Result in 

INTEGER*2 


LOGICAL*l 



R0 

INTEGERM 


LOGICAL*4 

R0 — low-order result 


Rl — high-order result 

REAL 

R0 — high-order result 


Rl — low-order result 

DOUBLE 


PRECISION 

R0 — highest-order result 


Rl — 


R2 — 


R3 — lowest-order result 

COMPLEX 

R0 — high-order real result 


Rl — low-order real result 


R2 — high-order imaginary result 


R3 — low-order imaginary result 
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In addition, assembly language subprograms which use the FP11 Floating 
Point unit may be required to save and restore the FPU status. 
FORTRAN IV assumes that the FPU status is set by default to: 

• Short Floating mode (SETF) 

• Short Integer mode (SETI) 

• Floating Truncate mode 

Should the assembly language routine modify these defaults, it must 
preserve the FPU status on entry by executing the following 
instruction: 

STFPS -(SP) 

and restore the status (prior to returning to the calling program) by 
executing the instruction: 

LDFPS (SP) + 


2.4 VECTORED ARRAYS 

Array vectoring decreases the time necessary to reference elements of 
a multi-dimensional array by using additional memory to store the 
array. 

Since multi-dimensional arrays are stored sequentially in memory, 
certain address calculations determine the location of individual 
elements. Typically, a mapping function performs this calculation. 
For example, to locate the element LIST(1,2,3) in an array dimensioned 
LIST(4,5,6), use a function equivalent to the following. This 
function identifies a location as an offset from the origin of the 
array storage. 

(sl-1) + dl * (s2 - 1) + dl * d2 * (s3 - 1) = 

(0)+4*( l)+4*5*( 2 ) = 44 

where si = subscript i 
di = dimension i 

Since such a mapping function requires multiplication operation(s), 
and some PDP-11 hardware configurations do not have the MUL 
instruction, the compiler can reduce execution time at the expense of 
memory storage by "vectoring" some arrays. 

Since array vectors map only the declared dimensions of the array, you 
must ensure that references to arrays are within their declared 
bounds. A reference outside the declared bounds of a vectored array 
causes unpredictable results (e.g. a program interrupt). You must 
give particular attention to arrays passed to subprograms where the 
dimensions declared in the subprogram differ from those specified in 
the calling program. In such cases, two sets of vectors are created: 
one for the calling program and one for the subprogram. The 
subprogram vectors map only that portion of the array declared by the 
subprogram. (The PDP-11 FORTRAN Language Reference Manual contains 
more information on dimensions.) 
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A specific element in a vectored array can be located by a simplified 
mapping function, without the need for multiplication. Instead, a 
table lookup determines the location. For example, a vectored, 
two-dimensional array B(5,6) automatically has associated with it a 
one-dimensional vector that would contain relative pointers to each 
column of array B. The location of the element B(m,n), relative to 
the beginning of the array, could then be computed as: 

Vector(n) + m 

using only addition operations. Figure 2-1 depicts the array 
vectoring process. 


Array B 

(5,6) 

Associated 

Vector 

B(1,1) 

PI 

0 PI 

B (2,1) 


5 P2 

B (3,1) 


10 P3 

B(4,1) 


15 P4 

B (5,1) 


20 P5 

B(1f 2) 

B(2,2) 

B (3,2) 

P2 

25 P6 

• 


The location of element B(m,n) = 

Vector(n) + m 

B(l,6) 

P6 


B (2,6) 

B {3,6) 


e.g. the location of B(4,3) = 

B(4,6) 

B (5,6) 


Vector (3) + 4 = 10 + 4 = 14 


Figure 2-1 Array Vectoring 


The compiler bases the decision to vector a multi-dimensional array on 
the computed ratio of the space required to vector the array to the 
total storage space it requires. The array is not vectored if this 
ratio is greater than 25 percent. A standard mapping function is used 
instead. Arrays with adjustable dimensions are never vectored. 
Vectored arrays are noted as such in the storage map listing. 

The compiler option /NOVECTORS (/V) suppresses all array vectoring. 

The amount of memory required to vector an array is the sum of all 
array dimensions except the first. For example, the array X(50,10,30) 
requires 10+30=40 words of vector table. Note that the array V(5,100) 
requires 100 words of vector storage, whereas the array Y(100,5) 
requires only 5 words of vector storage. It is good programming 
practice to place an array's largest dimension first when it will be 
vectored. 

Wherever possible, vector tables are shared among several different 
arrays. The compiler arranges shareable vectors under the following 
conditions: 

1. Arrays are in the same program unit. 

2. For the ith dimension vector to be shared by the arrays, 
dimensions to the left of the ith dimension must be 
equivalent in each array. 
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For example, given the statement DIMENSION A(10,10),B(10,20), A and B 
share a 20 word vector for the second dimension that contains the 
values 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 
150, 160, 170, 180, 190, of which the array A uses only the first ten 
elements. 


2.5 PROGRAM SECTIONS 

Program Sections (PSECTS) contain code and data and are identified by 
unique names as segments of the object program. The attributes 
associated with each PSECT direct the Link utility to combine several 
separately compiled FORTRAN program units, assembly language modules, 
and library routines into an executable program. The following 
attributes are associated with these sections: 


Concatenate 

(CON) 

or 

Overlay 

(OVR) 

Data 

(D) 

or 

Instruction 

(I) 

Global 

(GBL) 

or 

Local 

(LCL) 

Relocatable 

(REL) 

or 

Absolute 

(ABS) 

Read/Write 

(RW) 

or 

Read-Only 

(RO) 


2.5.1 Compiled Code PSECT Usage 

The compiler organizes compiled output into three program sections 
which have the names, attributes and contents shown in Table 2-2. 


Table 2-3 

Compiler Organization of Program Sections 


Section 

Name 

Attributes 

Contents 

$CODE 

RW*, I, LCL, REL, 

CON 

All executable code, including 
threaded and inline, for a 
program unit 

$DATAP 

RW*, D, LCL, REL, 

CON 

Pure data (e.g. constants, 
FORMATS, array vectors) which 
cannot change during program 
execution. 

$DATA 

RW, D, LCL, REL, 

CON 

Impure data, variables, temporary 
storage, and arrays used in the 
FORTRAN program. 


* The RO/RW attribute for sections $CODE and $DATAP is controlled 
by the compiler /Z command option. See Section 1.2.2. 

When named PSECTS with the CON attribute are concatenated by the LINK 
utility, all PSECTS with the same name are allocated together 
beginning at the same address. The length of the resulting PSECT is 
the sum of the individual sections so defined. 
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2.5.2 Common Block PSECT Usage 

FORTRAN COMMON storage is placed into named PSECTs. The PSECT name is 
identical to the COMMON block name specified in the FORTRAN program. 
PSECTs used for COMMON storage are given the attributes RW, D, GBL, 
REL, OVR. 


For example, the statement: 
COMMON /X/ A,B,C 


produces the equivalent of the following MACRO-11 code: 


A: 

B: 

C: 


.PSECT X, RW, D, GBL, REL, OVR 
.BLKW 2 
.BLKW 2 
.BLKW 2 


FORTRAN blank COMMON uses the section name .$$$$.; 
statement: 


COMMON C,B /X/ A 


produces the equivalent of: 


PSECT 

.$$$$., RW, D, 

GBL, 

REL 

BLKW 

2 



BLKW 

2 



PSECT 

X, RW, D, GBL, 

REL, 

OVR 

BLKW 

2 




thus the 


When named PSECTs with the OVR attribute are combined by the LINK 
utility, all PSECTs with the same name are allocated together 
beginning at the same address. The resulting PSECT has a length that 
is the maximum of the individual sections so combined. 


2.5.3 OTS Library PSECT Usage 

Modules included in the OTS library and referenced by the compiled 
program are segmented into five program sections as shown in Table 


Table 2-4 

Organization of OTS Library Modules 


Section 

Name 

Attributes 

Contents 

OTS$I 

RW, I, LCL, REL, 

CON 

All pure code and data for the 
module. 

OTS$P 

RW, D, GBL, REL, 

OVR 

Pure tables of addresses of other 
OTS library modules. 

OTS$D 

RW, D, LCL, REL, 

CON 

Pure data referenced by the 

module. 

OTS$S 

RW, D, LCL, REL, 

CON 

Scratch storage referenced by the 
module. 

0TS$0 

RW, I, LCL, REL, 

CON 

OTS routines sensitive to USR 
swapping. 
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2.5.4 Ordering of PSECTs in Executable Programs 

The order in which program sections are allocated in the executable 
program is controlled by the order in which they are first presented 
to the LINK utility. 

Applications which are sensitive to this ordering typically separate 
those sections which contain read-only information (such as executable 
code and pure data) from impure sections containing variables. 

The main program unit of a FORTRAN program (normally the first object 
program in sequence presented to LINK) declares the following PSECT 
ordering: 

Section Name Attributes 


OTS$I 

RW, 

i. 

LCL, 

REL, 

CON 

OTS$P 

RW, 

D, 

GBL, 

REL, 

OVR 

SYS$I 

RW, 

1# 

LCL, 

REL, 

CON 

USER$I 

RW, 

I» 

LCL, 

REL, 

CON 

$CODE 

RW, 

If 

LCL, 

REL, 

CON 

0TS$0 

RW, 

If 

LCL, 

REL, 

CON 

SYS$0 

RW, 

If 

LCL, 

REL, 

CON 

$DATAP 

RW, 

D, 

LCL, 

REL, 

CON 

OTS$D 

RW, 

D, 

LCL, 

REL, 

CON 

OTS$S 

RW, 

D, 

LCL, 

REL, 

CON 

SYS$S 

RW, 

D, 

LCL, 

REL, 

CON 

$DATA 

RW, 

D, 

LCL, 

REL, 

CON 

USER$D 

RW, 

D, 

LCL, 

REL, 

CON 

.$$$$. 

RW, 

D, 

GBL, 

REL, 

OVR 

Other COMMON Blocks 

RW, 

D, 

GBL, 

REL, 

OVR 


In the RT-11 environment the User Service Routine (USR) may swap over 
pure code, but must not be loaded over constants or impure data which 
may be passed as arguments to it. 

The above ordering collects all pure sections before impure data in 
memory and USR may safely swap over sections $CODE, OTS$I, OTS$P, 
SYS$I, and USER$I. 

Assembly-language routines used in applications sensitive to PSECT 
ordering, should use the same program sections as output by the 
compiler for this purpose. That is, place pure code and read-only 
data in section USER$I, and all impure storage in section USER$D. 
This will ensure that the assembly-language routines will participate 
in the separation of code and data. 

Note that the ordering of PSECTs in an overlay program will follow the 
guidelines herein for each overlay segment (i.e., the root segment 
will contain pure sections followed by impure, and each overlay 
segment will have a similar separation of pure and impure internal to 
its structure) . 

In overlay environments, PSECTs with the GBL attribute will be 
allocated in the root segment if they are referenced by more than one 
overlay segment in the same region. 

To build a Read-Only-Memory (ROM) based application, include sections 
$CODE, OTS$I, OTS$P, SYS$I, USER$I, $DATAP, 0TS$0, and OTS$D in the 
read-only memory. Use the "round section" capability of the LINK 
utility to increase the size of the section OTS$D to round the base 
address of section OTS$S up to the first available read-write memory 
location following the ROM. 
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ROM based applications created in this manner must obey these 
programming restrictions: 

1. Variables or arrays may not be data-initialized. Use 

assignment statements instead. 

2. Formatted READ statements may not transfer ASCII data into 

Hollerith fields in the FORMAT statement itself. Instead, 

place the data in a variable or array. 

The PSECT ordering specified by the compiler may not be suitable for 
some applications. The user can define ordering by creating a 
MACRO-11 source file which contains only PSECT declarations. The 
order in which the declarations appear in this file will be the order 
in which the sections will be allocated in the executable program. Be 
sure that the attributes specified in this file agree with those 
assigned by the compiler. 

The MACRO-11 source file containing the desired ordering must be 
assembled and used as the first input file in the LINK command. 

The above technique allows the use of data-initialized COMMON blocks 
in ROM applications (if the program does not attempt to modify the 

values in these COMMON blocks, which will be placed in read-only 

memory). The new ordering defined by the MACRO-11 source file should 
then be: 


.PSECT 

OTS$I 

RW, 

i» 

LCL, 

REL, 

CON 

.PSECT 

OTS$P 

RW, 

D, 

GBL, 

REL, 

OVR 

.PSECT 

SYS$I 

RW, 

If 

LCL, 

REL, 

CON 

.PSECT 

USER$I 

RW, 

If 

LCL, 

REL, 

CON 

.PSECT 

$CODE 

RW, 

If 

LCL, 

REL, 

CON 

.PSECT 

0TS$0 

RW, 

I, 

LCL, 

REL, 

CON 

.PSECT 

SYS$0 

RW, 

If 

LCL, 

REL, 

CON 

.PSECT 

$DATAP 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

coml 

RW, 

D, 

GBL, 

REL, 

OVR 

.PSECT 

com2 

RW, 

D, 

GBL, 

REL, 

OVR 

.PSECT 

• 

• 

comn 

RW, 

D, 

GBL, 

REL, 

OVR 

.PSECT 

OTS$D 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

OTS$S 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

SYS$S 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

$DATA 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

USER$D 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

.$$$$. 

RW, 

D, 

GBL, 

REL, 

OVR 


where coml, com2, ..., comn represent the names of the read-only 
COMMON blocks which will contain pure data. 
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2.6 TRACEBACK FEATURE 

The traceback feature included in RT-ll/RSTS/E FORTRAN IV fatal 
runtime error messages locates the actual program unit and line number 
of a runtime error. Immediately following the error message, the 
error handler lists the line number and program unit name in which the 
error occurred. If the program unit is a SUBROUTINE or FUNCTION 
subprogram, the error handler traces back to the calling program unit 
and displays the name of that program unit and the line number where 
the call occurred. This process continues until the calling sequence 
has been traced back to a specific line number in the main program. 
This allows an exact determination of the location of an error even if 
the error occurs in a deeply nested subroutine. 


0001 

A=0.0 


0002 

CALL SUBl(A) 

0003 

CALL EXIT 


0004 

END 


0001 

SUBROUTINE 

SUBl(B) 

0002 

CALL SUB2 

(B) 

0003 

RETURN 


0004 

END 


0001 

SUBROUTINE 

SUB2(C) 

0002 

CALL SUB3 

(C) 

0003 

RETURN 


0004 

END 


0001 

SUBROUTINE 

SUB3(D) 

0002 

E=1.0 


0003 

F=E/D 


0004 

RETURN 


0005 

END 



Trace back 

of Fatal Error 


?ERR 

12 FLOATING ZERO 

DIVIDE 


IN 

ROUTINE 

"SUB3 

II 

LINE 

3 

FROM 

ROUTINE 

"SUB 2 

II 

LINE 

? 

FROM 

ROUTINE 

"SUBl 

II 

LINE 

2 

FROM 

ROUTINE 

".MAIN. 

II 

LINE 

2 


Figure 2-2 The Traceback Feature 


Note in Figure 2-2 that the line number in the traceback of routine 
'SUB2 1 is simply a question mark (?). This is because the module was 
compiled with the /NOLINENUMBERS option (/S) in effect (see Section 
1 . 2 . 2 ). 
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2.7 RUNTIME MEMORY ORGANIZATION (RT-11 ONLY) 

The runtime memory organization in both a USR (User Service Routines) 
swapping system and a USR resident system operates as shown in Figure 
2-3. When user-written interrupt handling routines are linked with a 
FORTRAN IV program, avoid USR swapping over the interrupt routines and 
any associated data. The USR is swapped in above the interrupt 
vectors at location $$OTSI, and extends about 2K words from that point 
(see Figure 2-3). Interrupt routines must therefore be loaded above 
the area used for USR swapping when the USR will be actively swapped. 
Unless explicitly disabled by the compiler option /NOSWAP (/U), the 
USR is actively swapped. 

Some runtime memory segments are fixed in size. These include the 
resident monitor, the OTS work area, the stack and interrupt vector 
areas, and, in the USR resident system, the User Service Routine area. 

Other runtime memory segments vary in length in accordance with the 
length of the user program. The device handlers, channel tables, and 
I/O buffers are allocated space dynamically. Only those handlers 
needed for currently active devices are resident. I/O buffers are 
allocated and deallocated as required. 

However, there is a limit to the amount of space that can be allocated 
to the varying length memory segments. In an 8K swapping system, 
approximately 5K words are available; in an 8K resident system, the 
total is approximately 3K words. 

If a large FORTRAN IV program cannot be run in the amount of memory 
available, reduce the size of a runtime memory segment to allow 
successful program execution. Use overlay capabilities (see Section 
1.4.1) to reduce the amount of memory needed for the user program. 
Minimize the number of different physical devices used for I/O to 
reduce the number of handlers that must be resident. When the program 
finishes I/O to a file, close it by using the CALL CLOSE routine (see 
Section B.4) or the CLOSE statement thereby reallocating the buffer 
space to any new file to be opened. 
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CHAPTER 3 


FORTRAN IV SPECIFIC CHARACTERISTICS 


This chapter applies specifically to the FORTRAN IV language as it 
operates under the RT-11 and RSTS/E systems. The material presented 
here both relaxes the restrictions imposed by the PDP-11 FORTRAN 
Language Reference Manual and provides additional material essential 
to RT-11 and RSTS/E users but not covered in the Manual. 

Note that these deviations from the FORTRAN syntax requirements of the 
Manual apply only to RT-11 and RSTS/E. Your resulting program cannot 
be freely transported to another operating system without careful 
planning for that system's peculiarities and language requirements. 
RT-ll/RSTS/E FORTRAN IV relaxes the strict statement ordering 
specifications of the Manual and makes only the following three 
statement ordering requirements. 

1. The first non-comment line in a subprogram must be a 
FUNCTION, SUBROUTINE or BLOCK DATA statement. 

2. The last line in a program unit must be an END statement. 

3. Statement functions must be defined before they are 
referenced. 

If you do not follow the statement ordering requirements of the 
Manual, you can have a warning diagnostic included with the source 
listing by using the /WARNINGS option (/W). 


3.1 OPEN/CLOSE STATEMENT RESTRICTIONS 

Although the OPEN and CLOSE statements have an optional "ERR=label" 
error exit, only the following OPEN/CLOSE error conditions will cause 
control to be passed to "label": 

Syntax error in filespec for NAME= 

File not found NAME= 

OPEN (UNIT=n, ...) when a file is already open on unit n 

CLOSE (UNIT=n, ...) when no file is open on unit n 

CLOSE (UNIT=n, DISPOSE='PRINT', ...) RSTS/E only - when an error 
occurs from sending the file to QUEMAN 
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3.1.1 Keyword Constraints 

Valid keywords in the FORTRAN IV OPEN/CLOSE statements are the same 
for RT-11 and RSTS/E as those described in the FORTRAN Language 
Reference Manual. 

However, since FORTRAN IV does not support some keywords and options 
under RT-11 and RSTS/E, certain constraints must be recognized in 
constructing OPEN/CLOSE statements. These constraints are shown in 
Table 3-1. 


Table 3-1 

Keyword Constraints Under RT-11 and RSTS/E 


Keyword 

RT-11 

RSTS/E 

ACCESS““APPEND" 

Not supported. Results 
in error at compile¬ 
time and at run-time. 

Appends data to the end of an 
existing file. 

BUFFERCOUNT= 

be 

Specifies the number of 
buffers (1 or 2) to be used 
when outputting data on the 
logical unit. If not speci¬ 
fied, one buffer is 
allocated. 

Accepted, but ignored. The 

RSTS/E file system does not 
support multiple buffering. 

BUFFERSIZE= 

bs 

Not supported. Results in 
error at compile-time 
and run-time. 

Same 

CARRIAGE 

CONTROL 

Formatted files must have 
the attribute 'FORTRAN' or 
'LIST'. Unformatted or 
random access files must 
have the attribute 'NONE'. 

Same 

DISPOSE= 

•PRINT' 

Results in a compile-time 
error, as no system-wide 
line printer spooling is 
provided. 

Causes the file to be printed 
by the system line printer 
spooler under direction of 

Queue Manager (''QUEMAN") . 

The FORTRAN "QUEMAN" request 
includes these attributes: 
DEVICE= LPO 

PRIORITY 3 128 

FILETYPE 3 0 (EMB) or 1 (FTN) 
whichever describes the file 
type. 

EXTENDSIZE= 

es 

Not supported. Results in 
error at compile-time and 
at run-time. 

Specifies the cluster size for 
the file. The cluster size 
value is the first power of 
two greater than or equal to 
es. If this value is less than 
pack cluster size, or if 

EXTEND SIZE is not specified, 
the pack cluster size is 
assumed. 


(continued on next page) 
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Table 3-1 (Cont.) 

Keyword Constraints Under RT-11 and RSTS/E 


Keyword 

RT-11 

RSTS/E 

FORM= 

'FORMATTED' 

Not allowed on direct- 
access files. 

Same 

INITIALSIZ E = 
is 

The default initial allo¬ 
cation is the larger of 
two areas: the second 
largest empty area? or one 
half of the largest area. 
INITIALSIZE controls the 
entire allocation for the 
file since extension is 
not supported. 

The default initial alloca¬ 
tion is zero blocks. The file 
is dynamically extended as 
required for write operations. 

MAXREC= 

mr 

The size of the initial 
allocation made for a 
direct-access file is the 
larger of two parameters: 
INITIALSIZE or the product 
of MAXREC and RECORDSIZE. 

Same 

NOSPANBLOCKS 

Not supported; error 

Accepted, but ignored. The 

RSTS/E file system does not 
support NOSPANBLOCKS. 

RECORDSIZE 

Must be specified for 
direct-access files. 

Same 

SHARED 

Not supported. Results in 
error at compile-time 
and at run-time. 

Causes the file to be opened 
in "UPDATE" mode (mode=l) for 
shared access by enabling 
disk block locks. See also the 
CALL UNLOCK system routine. 

(App B) 


3.2 SOURCE LINES 

A valid RT-11/RSTS/E FORTRAN IV source line consists of the following: 

1. An optional, one to five character, numeric statement label, 
followed by 

2. sufficient blanks to position the next character at column 7 
(if not a continuation line) or column 6 (for continuations; 
a continuation signal character will be typed) 

or 


a tab character followed by any non-alphabetic character to 
signal continuation, 


or 


a tab character, if the line is not a continuation. 
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3. a valid FORTRAN statement, or the continuation of a 

statement, and 

4. an optional comment field delimited on the left by an 

exclamation point (!). 

Totally blank records (a source line of only a carriage return-line 

feed combination) are ignored on input. If a line is not totally 

blank, it must contain a FORTRAN statement. 


3.3 VARIABLE NAMES 

RT-ll/RSTS/E FORTRAN IV allows variable names to exceed six 
characters. However, only the first six characters are significant 
and should be unique among all variable names in the program unit. A 
warning diagnostic occurs for each variable name which exceeds six 
characters in length. The diagnostic is enabled if the /WARNINGS 
option (W) is included in the compiler command string. 


3.4 INITIALIZATION OF COMMON VARIABLES 

RT-ll/RSTS/E FORTRAN IV allows any variables in COMMON, including 
blank COMMON, to be initialized in any program unit by use of the DATA 
statement. 


3.5 CONTINUATION LINES 

A line is assumed to be a continuation line if the first character, 
following a tab on an input line to the compiler, is non-alphabetic. 

RT-ll/RSTS/E FORTRAN IV does not place any limits on the number of 
continuation lines that a statement may contain. 


3.6 STOP AND PAUSE STATEMENTS 

The PAUSE statement causes the execution of a program to be 
temporarily suspended by typing the word PAUSE and the contents of the 
text string (if any) on the user's terminal. To resume program 
execution, type a carriage return. 

For example, use of the FORTRAN statement: 

PAUSE 'MOUNT A NEW TAPE' 

causes the following line to be printed at the user's terminal: 

PAUSE — MOUNT A NEW TAPE 

Execution of the STOP statement closes all files and returns control 
to the operating system. To terminate a program execution without 
printing the STOP message, use CALL EXIT. (See Section B.7.) 
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The STOP statement causes the following output to be printed: 

STOP — text 

where text is the optional text string from the source statement. 


3.7 DEVICE/FILE DEFAULT ASSIGNMENTS 


The device and filename default assignments are listed 
The default device assignments can be changed prior to 
using the OPEN statement or the monitor ASSIGN command. 


in Table 3-2 
execution 


by 


The monitor command: 


.ASSIGN LP: 7 

T" r ects unit 7 to a Physical device, the line printer. The 

ule of the d ASS?rN n ^f assi 9 nme ? bs can be changed at execution time by 
the ASSIGN system subroutine or the FORTRAN OPEN statement. 

^ unit numbers other than those listed below (10-99) are 

The ^dpfanH'system default device (public structure on RSTS/E). 
The default filename conventions hold for logical units not listed 
below, e.g., unit number 49 will have a default filename of FTN49.DAT 
Guide. RT-11 System User’s Guide or the RSTS/E System i^e^ 


Table 3-2 

FORTRAN Logical Device Assignments 


Logical Unit 
Number 

Default Device 

Default Filename 

1 

System disk, or 
public structure SY: 

FTN1.DAT 

2 

Default Device 

FTN2.DAT 

3 

Default Device 

FTN3.DAT 

4 

Default Device 

FTN4.DAT 

5 

Terminal, TT:(Input) 

FTN5.DAT 

6 

Line printer, LP: 

FTN6.DAT 

7 

Terminal, TT:(Output) 

FTN7.DAT 

8 

High-speed paper 


9 

tape reader, PC: 

FTN8.DAT 

High-speed paper 



tape punch, PC: 

FTN9.DAT 


Although any combination of valid logical unit numbers can be used, 
r 11 ma3cim “ m number of units that can be simultaneously 

. By defaul t, six logical units can be concurrently active. 
The number can be changed by use of the /UNITS option (/N) in the 

Section 1 ^! 0 ^" 1 ^^ String while compiling the main program unit (see 


A formatted READ statement of the form: 
READ f,list 


is equivalent to: 
READ(1, f)list 
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For all purposes these two forms function identically. For 
assigning logical unit number 1 to the terminal, in both cases 
input to come from the terminal. 


example, 
, causes 


The ACCEPT, TYPE, and PRINT statements also have similar functional 
analogies. Assigning devices to logical units 5, 7, and 6 affects 
respectively the ACCEPT, TYPE, and PRINT statements. 


3.8 MAXIMUM RECORD LENGTHS 

The line buffer allocated to temporarily store I/O records is by 
default 136 bytes. This restricts all I/O records in formatted I/O 
statements to a maximum of 136 characters. The size of this bu “ e f' 
and consequently the maximum record length, can be changed by 
including the /RECORD option (/R) in the compiler command string while 
compiling the main program unit. The maximum size of the line buffer 
is 4095 bytes (7777 octal). 


3.9 DIRECT-ACCESS I/O 

RT-ll/RSTS/E FORTRAN IV allows creation and modification 
direct-access files. 


3.9.1 DEFINE FILE Statement 


The first parenthesized argument in a DEFINE FILE statement specifies 
the length, in records, of the direct-access file being initialized. 
However, if the statement is part of a file creation procedure, this 
value may not be readily available. RT-ll/RSTS/E FORTRAN IV allows 
some extra flexibility in this situation. Under RT-11, a file length 
specification of zero records causes a large contiguous file to be 
allocated initially and the unused portion to be automatically 
de-allocated when the file is closed. The "END=" construction is 
particularly useful in this situation for determining the actual 
length of the file. 


Under RSTS/E a file length specification of zero records causes the 
file to be extended dynamically as required by the highest record 
number referenced during program execution, if the record size is an 
exact multiple of 256. The DEFINE FILE statement must not be used 
with the OPEN statement. The OPEN statement specifies a recordsize in 
units of 2 words; whereas the DEFINE FILE statement specifies a 
recordsize in units of 1 word. 


3.9.2 Creating Direct-Access Files 

The first I/O operation performed on a direct-access file during file 
creation must be a WRITE operation. A READ or FIND operation under 
such circumstances produces a fatal error condition. 
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3.10 INPUT/OUTPUT FORMATS 

RT-ll/RSTS/E FORTRAN IV allows formatted input and output for 
transferring of ASCII files. Unformatted and direct-access input and 
output are available for transferring binary records. 

Some run-time errors can be intercepted and control transferred to a 
pre-determined program label by use of the ERR= parameter. This 
parameter can be specified in the READ, WRITE, ENCODE or DECODE 
statements. Note that a count n error will become fatal on the nth 
occurrence of the error. 

The following errors can be intercepted: 


ERROR 

NUMBER 

ERROR 

TYPE 

MESSAGE 

5 

Count 3 

Input conversion error 

23 

Fatal 

Hardware I/O error 

45 

Fatal 

Incompatible variable and format 

46 

Fatal 

Infinite format loop 

3.10.1 Formatted 

I/O 


The formatted input/output 
formatted ASCII records. 

routines read or write variable-length, 
A record consists of a number of ASCII 


characters, transmitted under control of a format specification, 
followed by a record separator character(s). 

On input, the parity bit of each input character is removed, (set to 
zero); only the 7-bit ASCII character is transferred. On output, the 
parity bit is written as a zero. 

On output to a printing device (KB:, TT:, or LP:), the record 
separator appended to each record consists of a carriage return 
character. The carriage return can be suppressed by use of the "$" 
format separator character in the FORMAT statement (see Chapter 6 of 
the PDP-11 FORTRAN Language Reference Manual ). The first character of 
each record is deleted from the record and is interpreted as a 
carriage control character. 


3.10.2 Unformatted I/O 

When unformatted I/O routines read or write variable-length binary 
records, they add control and file positioning information to the user 
data. The control information is contained in each block of the file 
and allows file positioning through auxiliary I/O statements, e.g., 
BACKSPACE. The block consists of 256 words, numbered from 0 to 255, 
and contains a directory describing the records that end in the block. 
The directory begins at word 254 and builds backward towards the start 
of the block. Word 255 is the number of records that end in the 
block; bit #15 indicates end-of-file (EOF) for the file. Each 
directory entry is one word long and points to the end of a record; 
its high order bit flags an end of file record. 


3-7 







FORTRAN IV SPECIFIC CHARACTERISTICS 


As an example: 

Assume the last 3 words (in octal) of block 0 of an unformatted file 
to be: 

100040, 40, 2 

and the last 4 words (in octal) of block 1 of the same unformatted 
file to be: 

106, 56, 46, 100003 

This is interpreted as follows: 

Block 0 contains records 1, 2 and the start of record 3. Record 1 
extends from block 0, byte 0 to (but not including) block 0, byte 40. 
Record 2 is an ENDFILE record, denoted by bit #15 being on in the end 
of record pointer; ENDFILE records have no length. Record 3 spans 
blocks beginning at block 0, byte 40 and extending to (but not 
including) block 1, byte 46. Block 1 also contains records 4 (byte 46 
to 56) and record 5 (byte 56 to 106) . Since the high order bit of 
word 255 of block 1 is set, this file contains only 5 records. 

This file format is unique to FORTRAN, and may not be easily accessed 
by programs written in another language. To read or write a file 
constructed in a programming language other than FORTRAN, use 
formatted I/O for ASCII data and direct-access I/O for binary data. 


3.10.3 Direct-Access I/O 

The direct-access input/output routines read or write fixed-length, 
binary records. The logical record structure for a direct-access file 
is determined by the DEFINE FILE statement or the /RECORDSIZE option 
in the OPEN statement. The records contain only the specified data; 
no control information or record separators are used. 

The direct-access record structure is independent of the physical 
block size of the I/O device. However, more efficient operation 
results if the record size is an exact divisor or multiple of 256 
words. 


3.11 MIXED MODE COMPARISONS 

When comparing a single precision number to a double precision number, 
the double precision number may appear to be not equal to the single 
precision number in magnitude even though they should be equal. For 
example: 

DOUBLE PRECISION D 

A=55.1 

D=55.1D0 

IF(A.LT•D)STOP 
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In the example above A compares less than D because 55,1 
repeating binary fraction. Before the comparison, the 
fractional (mantissa) part of A is extended with 32 zero bits, 
low order 32 bits are now less than the low order 32 bits of D 
therefore compares greater than A. With some other values 
5.51), the single precision value will compare greater than the 
precision value owing to the conversion rounding conventions in 
from double to single precision. 




is a 
24 bit 
These 
, and D 
(e.g., 
double 
going 
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CHAPTER 4 


INCREASING FORTRAN IV PROGRAMMING EFFICIENCY 


4.1 FACTORS AFFECTING PROGRAM EFFICIENCY 

This chapter is directed to the programmer who is interested in 
minimizing program execution time or storage space requirements. 

The relative efficiency of an RT-ll/RSTS/E FORTRAN IV object program 
derives from several factors which fall into two classes: 

1. The way in which the programmer codes the source program, and 

2. the way in which the compiler treats the source program. 

These two factors are interrelated. Compiler optimizations can be 
increased by certain programming techniques in the source program. 
The programmer should code his source program so as to utilize those 
FORTRAN constructs which the compiler handles most efficiently. 


Section 4.2 deals with the situations in which the compiler generates 
the most efficient code. Section 4.3, Programming Techniques, 
contains hints on improving programming efficiency. 

Each topic discussed in the following section is flagged with one of 
the following remarks: 

(space) indicates that the primary function of the 

discussion is to minimize program memory 
requirements. 

(time) indicates that the primary concern is minimization 

of execution time. 

A particular topic can have both designations, indicating a savings in 
both space and time. 


4.2 INCREASING COMPILATION EFFECTIVENESS 

The following 12 programming suggestions will increase compilation 
effectiveness. 

1. Using the Optimizer effectively (space,time) 

Avoiding certain programming constructs allows the optimizer 
greater freedom to discover common subexpressions in source 
programs. Specifically, avoid the following situation: 

• Usage of equivalenced and COMMON variables, and 
SUBROUTINE and FUNCTION dummy arguments. 
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2. Passing arguments to subprograms (space, time) 

To minimize overhead in FUNCTION and SUBROUTINE calls, 
parameters should be passed in COMMON blocks rather than 
standard argument lists. Variables in COMMON are handled as 
efficiently as local variables. 

Minimizing the number of elements in the argument list (by 
placing others in COMMON) reduces the time required to 
execute the transfer of control to the called routine. 

3. Statement functions (time) 

Arithmetic and logical statement functions are implemented as 
internal FUNCTION subprograms. Hence, all suggestions 
concerning argument lists apply to statement functions also. 

4. Minimizing array vector table storage (space) 

The RT-ll/RSTS/E FORTRAN IV array vectoring feature is 
designed to decrease the time required to compute the address 
associated with an element of a multi-dimensional array by 
precomputing certain of the multiplication operations 
involved. The values precomputed are stored in a table 
called the "vector" for the particular array dimension. It 
is desirable to minimize the space allocated to these 
vectors. 

The following steps can be taken by the programmer to reduce 
the space required for array vectors: 

• Specify the largest dimensions first in the statement 
which allocates the array. This minimizes the number of 
vector table entries, as the first dimension is never 
vectored. For example, 

INTEGER A(350,10) requires 10 words to vector 

INTEGER A(10,350) requires 350 words to vector 

The compiler computes a space tradeoff factor which 
relates the number of words required for vector storage 
to the number of words required to store the array. If 
this tradeoff is favorable (i.e., the vector table is 
small compared to the array), the array is vectored. 
Therefore, the proper ordering of dimensions not only 
saves table space for all vectored arrays, but can also 
cause other arrays to be made eligible for vectoring. 

• Try to keep similar arrays dimensioned in the same order. 
This will cause certain arrays to share vector tables. 
For example: 

INTEGER A(9,4,5), B(9,4,7), C(9,8) 

all share the same two vectors, one for the second array 
dimension and one for the third. The vector for the 
second dimension will have eight elements (@ 1 word each) 
because C has the largest second dimension, 8. 
Similarly, the vector for the third dimension has seven 
elements. 
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In the general case, two arrays share a vector table for 
dimension i if each dimension less than i in each array 
is identical to the same dimension for the other array. 
In the example given above, arrays A, B, and C share the 
vector for the second dimension because each array has a 
first dimension equal to 9. 

• Vectoring can be disabled completely by specifying the 
/VECTORS (/V) option in the command string to the 
compiler. This causes no vector tables to be generated, 
but the resulting program executes more slowly than with 
vectoring. This tradeoff can be made if array usage is 
not heavy in speed-critical sections of the program, or 
if space is the primary goal. 

5. Multi-Dimensioned array usage (time) 

When using multi-dimensional arrays, the number of specified 
variable subscripts affects the time required to make the 
array reference. Therefore, the following steps can be taken 
to optimize array references: 

• Use arrays with as few dimensions as possible. 

• Use constant subscripts whenever possible. Constant 

subscripts are computed during compilation and require no 
extra operations at execution time. 

• Make totally constant array references wherever 

appropriate. These references receive the highest level 
of optimization. For example, 

1=1 

A (I) = 0.0 

is not as efficient as 
1=1 

A (1) = 0.0 

The former case requires a runtime subscript operation; 
in the latter, the compiler can calculate the address of 
the first element of array A at compilation time. 

6. Formatted input/output (space,time) 

RT-ll/RSTS/E FORTRAN IV precompiles and compacts FORMAT 
statements that are presented in the source program. This 
affects the space required to store the format at runtime, 
and the speed of the input/output operations which make use 
of the format. 

For this reason, object-time formats (i.e., those formats 
that are specified in arrays rather than as FORMAT 
statements) are considerably less efficient. 

7. Data type selection (space,time) 

Due to the addressing modes of the PDP-11 processors and 
various optimization considerations internal to FORTRAN IV, 
more efficient code can be generated for certain data types 
than for others. Specifically: 
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• Use the INTEGER data type wherever possible. 
RT-ll/RSTS/E FORTRAN IV performs extensive optimizations 
on this data type. 

• Use REALM rather than DOUBLE PRECISION (REALM) wherever 
possible. Single-precision operations are significantly 
faster than double-precision, and storage space is saved. 

• Avoid unnecessary mode-mixing. For example: 

A = 0.0 

is preferable to 
A = 0 

• Use two REALM variables rather than a COMPLEX*8 if usage 
of COMPLEX variables in the program is not heavy. REALM 
operations receive more optimization than COMPLEX 
operations. 

8. Testing "flag" variables (space) 

Wherever possible, comparisions with zero should be used. 
Comparing any data type to a zero value is a special case 
which requires less executable code. An example of such a 
case is the following: 

IF (I .LT. 1) GOTO 100 

requires more code than, 

IF (I .LE. 0) GOTO 100 

9. *2, **2 Operations (time) 

Explicitly specifying *2 when doubling the value of an 
expression, or **2 when squaring the value of an expression 
can lead to more efficient code. For example: 

A = (B + ARRAY(C))**2 

is preferable to 

A = (B + ARRAY(C)) * (B + ARRAY(C)) 

despite the fact that (B + ARRAY(C)) is computed only once in 
either case. Note that this applies only to expression 
values; 1**2 is as efficient as 1*1. 

10. Compilation options (space) 

To minimize the space required for program execution, the 
following options should be supplied to the compiler: 

/NOLINENUMBERS (/S) to suppress line number traceback 

/VECTORS (/V) to suppress all array vectoring 
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In addition, the /I4 (/T) (two-word integer default) option 
should not be specified unless required. Specifying the 
/NOOPTIMIZE:xxx option (/M:xxx) can reduce storage 
requirements, but the result is not predictable when it is 
based on a simple survey of the source program. Try 
different settings of /NOOPTIMIZE:xxx (/M:xxx) to determine 
which is optimal. Note that some settings (e.g., SPD,BND) 
have no effect on the threaded code generator. 
/NOOPTIMIZE:SPD disables the SPEED optimizer which is 
equivalent to enabling the SIZE optimizer. 

The /NOSWAP (/U) OPTION should not be specified if it is not 
required (i.e., no user-written interrupt or completion 
routines exist in the linked program). 

Specify minimal values for the /UNITS (/N) and /RECORDS (/R) 
compiler options to conserve space at execution time. The 
/UNITS (/N) value should be the number of logical units that 
can be concurrently active. Set the /RECORDS (/R) option to 
the maximum formatted record length plus two (for the 
carriage return-line feed combination which can accompany a 
record). 

12. Compilation options (time) 

Specify the following compiler options to optimize an object 
program for execution time. 

/NOLINENUMBERS (/S) to suppress line number traceback 

/NOSWAP (/u) to prevent the USR (RT-11 file 

service routines) from swapping at 
runtime (RT-11 only; ignored under 
RSTS/E) 

Do not specify the following options since global 
optimization and array vectoring speed program execution. 

/NOOPTIMIZE:xxx (/M:xxx) will disable compiler optimization 
/NOVECTORS (/V) will disable array vectoring 



4.3 PROGRAMMING TECHNIQUES 


The following examples compare different programming methods. These 


comparisons show more efficient 
the user. While both methods 
operation, the technique on the 
than the technique on the left. 

1. Make use of the increment 

INEFFICIENT 

DIMENSION A(20) 

DO 100 1=1,10 
A(2*1)=B 
100 CONTINUE 


programming techniques available to 
are correct for the particular 
right has been found more efficient 


parameter in DO loops: 

EFFICIENT 

DIMENSION A(20) 

DO 100 1=2,20,2 
A(I)=B 
100 CONTINUE 


In the inefficient example, an additional calculation is 
performed (i.e., 2*1) each time through the loop. These 
calculations are avoided in the efficient example by having 
the count incremented by two. 


4-5 








INCREASING FORTRAN IV PROGRAMMING EFFICIENCY 


2. Avoid placing calculations within loops whenever possible: 


INEFFICIENT 


EFFICIENT 


DO 10 1=1,20 
DO 20 J=l,50 
20 A(J)=A(J)+I*B*C 
10 CONTINUE 


TEMPl=B*C 
DO 10 1=1,20 
TEMP2=I*TEMPl 
DO 20 J=l,50 
20 A(J)=A(J)+TEMP2 
10 CONTINUE 


The calculation (B*C) within the loop of the inefficient 
example is evaluated 1000 times. Calculations are handled 
more economically when done outside the loop. In the 
efficient example, 980 "FLOATS" and 1979 floating multiplies 
were saved by performing the (B*C and I) calculations outside 
the loop. 


3. Proper nesting of DO loops can increase speed by minimizing 
the loop initialization. 


INEFFICIENT 

DIMENSION A(100,10) 
DO 60 1=1,100 
DO 60 J=1,10 
60 A (I, J)=B 


EFFICIENT 

DIMENSION A(100,10) 
DO 60 J=l,10 
DO 60 1=1,100 
60 A(I,J)=B 


In the first example, the inner DO loop is initialized 100 
times, while in the efficient example it is only initialized 
10 times. 


4. The most efficient way to zero a large array, or to set each 
element to some value, is to equivalence it to a 
single-dimension array. This technique is even useful for 
copying large, multi-dimensional arrays. 


INEFFICIENT 


EFFICIENT 


INTEGER A(20,100) 
DO 20 1=1,100 
DO 20 J=1,20 
20 A(J,I)=0 


INTEGER A(20,100) 
REAL*8 ATEMP(500) 
EQUIVALENCE (A,ATEMP) 
DO 20 1=1,500 
20 ATEMP(I)=0.0D0 


The efficient example makes use of the 8 bytes in REAL*8 and, 
by equivalencing, places 4 integers in the array and zeroes 
them in one operation, thus quartering the number of 
iterations. 


5. Do as much calculation in INTEGER mode as possible. 


INEFFICIENT 


EFFICIENT 


A=B+I+J A=B+(I+J) 

Also, do as much calculation in REAL mode when the dominant 
mode of an expression is DOUBLE PRECISION or COMPLEX. 
Calculation is most efficient in integer mode, less efficient 
in REAL mode, and least efficient in DOUBLE PRECISION or 
COMPLEX. Remember, in the absence of parentheses, evaluation 
generally proceeds from left to right. 
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6. Use COMMON to pass arguments and return results of 
subprograms whenever possible. 


INEFFICIENT 


EFFICIENT 

COMMON/SUBRA/A,B,C,D,E 
COMMON/FUNCTA/Y,Z 


CALL SUBR(A,B,C,D,E) 
X=FUNCT(Y,Z) 

CALL SUBR(A,B,C,D,E) 


CALL SUBR 
X=FUNCT() 
CALL SUBR 


• • 

END END 

SUBROUTINE SUBR(A,B r C,D,E) SUBROUTINE SUBR 

COMMON/SUBRA/A,B,C,D,E 


END 

FUNCTION FUNCT(Y, Z) 


END 

FUNCTION FUNCT 
COMMON/FUNCTA/Y,Z 


END 

END 

COMMON is handled more efficiently than formal argument 
lists. Generally, it is possible to use COMMON for argument 
passage if a subprogram is referenced from only one place, or 
if it is always referenced with the same actual arguments. 


NOTE 

In PDP-11 FORTRAN IV, function subprograms are not 
required to have arguments, but they must have empty 
parentheses for the compiler to recognize, e.g., 
IGETCO . 


7. Avoid division within programs wherever possible. 

INEFFICIENT EFFICIENT 

A=B/2. A= B*.5 

Multiplication is faster than division and thus saves 
execution time. 
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CHAPTER 5 


CONCISE COMMAND LANGUAGE OPTION 


5.1 INTRODUCTION TO THE RSTS/E FORTRAN IV CCL OPTION 

The Concise Command Language (CCL) commands provide an alternative 
method for invoking RSTS/E system programs. CCL commands allow a user 
to run a system program by specifying a single command for the program 
to execute. The user types the CCL command and the program command on 
one line and enters it to the system. The system loads the program 

into the user's job area and writes the program command to the core 

common area. This operation destroys the current contents of the 

user s job area. The program runs, reads the command from the core 

common area, and executes. If an error is encountered, the program 
prints a related message and terminates. CCL options are available 
for the following system programs: FORTRAN, LINK, AND MACRO. 

RSTS/E users should contact the system manager for the availability of 
these commands on their system. 


5.2 COMMAND INTERFACE 

The CCL command to invoke the FORTRAN IV Compiler has the form: 
FOR command line 


where 


command line has the form: output = input/sw 

The output and input filename specifications 
are described in Section 1.1.1; the compiler 
switches are described in Section 1.2.1. 

The command to invoke the linker, LINK, has the form: 

LINK command line 


where 


command line has the form: output = input/sw 

The output and input filename specifications 
and switch options are described in Section 
1.3. 

The command to invoke MACRO has the form: 

MACRO command line 
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where 


command line has the form: output = input/sw 

The output and input filename specifications 
and switch options are described in Section 
2.7 of the RSTS/E FORTRAN IV Utilities Manual 
and Section 5.7 of the RT-11 System Reference 
Manual. 


5.2.1 CCL Command Restrictions 

Several switch options included in the LINK utility are not acceptable 
to the LINK CCL command line. These switch option restrictions do not 
apply to the "RUN $LINK" invocation of the linker utility but only to 
one line of input to the LINK CCL command. The restricted switches 
are the following: 


/C 

continue input specification on 

multiple lines 

/E 

extend PSECT 


/I 

include requested library modules 

/M 

specify stack address as global 
(/M:n form is acceptable) 

symbol 

/o 

indicate overlay structure 


/T 

specify transfer address as global symbol 
(/T:n form is acceptable) 

/u 

round PSECT 


// 

indefinite continuation 



5.2.2 CCL Command Comparison 

The following example illustrates the two methods available to the 
user for creating a source and assembly program, as well as linking 
and execution. 
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RSTS/E Command String 

CCL 

RUN $FORTRAN 
*MAIN=MAIN,SUBR/S 
*~Z 

FOR MAIN=MAIN,SUBR/S 

READY 

READY 

RUN $MACRO 
*MACSUB=MACSUB 

ERRORS DETECTED:0 

FREE CORE: 1024 WORDS 
*~Z 

MACRO MACSUB=MACSUB 
ERRORS DETECTED:0 

FREE CORE: 1024 WORDS 

READY 

READY 

RUN $LINK 

*PROG=MAIN,MACSUB/F 

LINK PROG=MAIN,MACSUB/F 


* z 


READY 

READY 

RUN PROG 

RUN PROG 
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APPENDIX A 


FORTRAN DATA REPRESENTATION 


A.l INTEGER FORMAT 


Sign _ 

0 =+ 

Binary number 

15 14 0 


Integers are stored in a two's complement representation. If the /I4 
(/T) compiler option (see Section 1.2.1) is used, an integer is 
assigned two words, although only the low order word (i.e., the word 
having the lower address) is significant. By default, integers will 
be assigned to a single storage word. Explicit length integer 
specifications (INTEGER*2 and INTEGER*4) will always take precedence 
over the setting of the /I4 (/T) option. Integer constants must lie 
in the range -32767 to +32767. For example: 

+22 = 000026(octal) 

-7 = 177771(octal) 


A.2 FLOATING-POINT FORMATS 

The exponent for both 2-word and 4-word floating-point formats is 
stored in excess 128 (200(octal)) notation. Binary exponents from 

-128 to +127 are represented by the binary equivalents of 0 through 
255 (0 through 377(octal)). Fractions are represented in 

sign-magnitude notation with the binary radix point to the left. 
Numbers are assumed to be normalized and, therefore, the most 
significant bit is not stored because of redundancy (this is called 
hidden bit normalization). This bit is assumed to be a 1 unless the 
exponent is 0 (corresponding to 2-128) in which case it is assumed to 
be 0. The value 0 is represented by two or four words of zeros. For 
example, +1.0 would be represented by: 

40200 

0 

in the 2-word format, or: 

40200 

0 

0 

0 
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in the 4-word format. -5 would be: 

140640 

0 

in the 2-word format, or: 

140640 

0 

0 

0 

in the 4-word format. 


A. 2.1 REAL Format (2-Word Floating Point) 


word 1: 


word 2: 


Since the high-order bit of the mantissa is always 1, it is discarded, 
giving an effective precision of 24 bits (or approximately 7 digits of 
accuracy). The magnitude range lies between approximately .29 X 10-38 
and .17 X 1039. 


Sign 


0=+ 

1=- 


Binary excess 

128 exponent 

High-order mantissa 


15 

14 

7 

6 

0 



Low-order mantissa 



15 0 


A. 2.2 DOUBLE PRECISION Format (4-Word Floating Point) 

word 1: 

word 2: 

word 3: 

word 4: 

15 0 

The effective precision is 56 bits (or approximately 17 decimal digits 
of accuracy). The magnitude range lies between .29 X 10-38 and .17 X 
1039. 


Sign 


1=- 

Binary excess 

128 exponent 

High-order mantissa 

15 

14 7 

6 0 

Low-order mantissa 

15 


0 

Lower-order mantissa 

15 


0 


Lowest-order mantissa 


A.2.3 COMPLEX Format 


word 1: 


Sign 


0 =+ 

1 =- 


15 14 


Binary excess 
128 exponent 


High-order mantissa 


Real part 
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FORTRAN DATA REPRESENTATION 


word 2: 


word 3: 


word 4: 


Low-order mantissa 

15 





0 

Sign 






0=+ 

1=- 

Binary excess 

128 exponent 

High-order mantissa 

15 

14 


7 

6 

0 

Low-order mantissa 

15 





0 


Imaginary 

Part 


A.3 LOGICAL*! FORMAT 


_ Data item _ 

7 0 

Any non-zero value is considered to have a logical value of .TRUE. 
The range of numbers from +127 to -128 can be represented in LOGICAL*l 
format. LOGICAL*! array elements are stored in adjacent bytes. 


A. 4 HOLLERITH FORMAT 


word 1: 


word 2: 


char 2 

char 1 

15 


8 

7 


0 

char 4 

char 3 

15 


8 

7 


0 

blank=40 (octal) 

char n (n<255) 

15 


8 

7 


0 


Hollerith constants are stored internally, one character per byte. 
Hollerith values are padded on the right with blanks to fill the 
associated data item, if necessary. 


A.5 LOGICAL FORMAT 


True: 


False: 


word 1 


word 2 


word 1 


word 2 


15 8 7 0 



Logical (LOGICALM) data items are treated as LOGICAL*l values for use 
with arithmetic and logical operators. Any non-zero value in the low 
order byte is considered to have a logical value of true in logical 
expressions. 


A-3 


































FORTRAN DATA REPRESENTATION 


A.6 RADIX-50 FORMAT 

Radix-50 character set 


Character 

ASCII 

Octal 

Equivalent 

Radix-50 

Equivalent 

space 

40 

0 

A-Z 

101-132 

1-32 

$ 

44 

33 

. 

56 

34 

unused 


35 

0-9 

60-71 

36-47 


The following table provides a convenient means of translating between 
the ASCII character set and its Radix-50 equivalents. For example, 
given the ASCII string X2B, the Radix-50 equivalent is (arithmetic is 
performed in octal)s 

X =113000 
2 =002400 
B=000002 
X2B=115402 




Table A-l 

ASCII/Radix-50 Equivalents 


Single Char, 
or 

First Char. 

Second 

Character 

Third 

Character 

space 000000 

space 000000 

space 000000 

A 003100 

A 000050 

A 000001 

B 006200 

B 000120 

B 000002 

C 011300 

C 000170 

C 000003 

D 014400 

D 000240 

D 000004 

E 017500 

E 000310 

E 000005 

F 022600 

F 000360 

F 000006 

G 025700 

G 000430 

G 000007 

H 031000 

H 000500 

H 000010 

I 034100 

I 000550 

I 000011 

J 037200 

J 000620 

J 000012 

K 042300 

K 000670 

K 000013 

L 045400 

L 000740 

L 000014 

M 050500 

M 001010 

M 000015 

N 053600 

N 001060 

N 000016 

O 056700 

O 001130 

O 000017 

P 062000 

P 001200 

P 000020 

Q 065100 

Q 001250 

Q 000021 

R 070200 

R 001320 

R 000022 

S 073300 

S 001370 

S 000023 

T 076400 

T 001440 

T 000024 

U 101500 

U 001510 

U 000025 

V 104600 

V 001560 

V 000026 

W 107700 

W 001630 

W 000027 

x 113000 

x 001700 

x 000030 

y 116100 

y 001750 

y 000031 

z 121200 

z 002020 

z 000032 

$ 124300 

$ 002070 

$ 000033 




(continued on next page) 
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Table A-l (Cont.) 
ASCII/Radix-50 Equivalents 


Single Char, 
or 

First Char. 

Second 

Character 

Third 

Character 

. 127400 
unused 132500 

0 135600 

1 140700 

2 144000 

3 147100 

4 152200 

5 155300 

6 160400 

7 163500 

8 166600 

9 171700 

. 002140 
unused 002210 

0 002260 

1 002330 

2 002400 

3 002450 

4 002520 

5 002570 

6 002640 

7 002710 

8 002760 

9 003030 

. 000034 
unused 000035 

0 000036 

1 000037 

2 000040 

3 000041 

4 000042 

5 000043 

6 000044 

7 000045 

8 000046 

9 000047 
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LIBRARY SUBROUTINES 

B.1 LIBRARY SUBROUTINE SUMMARY 

In addition to the functions intrinsic to the FORTRAN IV system, there 
are subroutines in the FORTRAN library which the user can call in the 
same manner as a user-written subroutine. These subroutines are: 


ASSIGN 

allows specification at run-time of the filename or 
device and filename to be associated with a FORTRAN IV 
logical unit number. 

OPEN 

(RSTS/E only) causes the specified file to be opened and 
associated with a particular FORTRAN IV logical unit. 

CLOSE 

closes the specified logical unit after writing any 
active buffers to the file. 

DATE 

returns a 9-byte string containing the ASCII 

representation of the current date. 

I DATE 

returns three integer values representing the current 
month, day, and year. 

EXIT 

terminates the execution of a program and returns control 
to the executive. 

USEREX 

allows specification of a routine to be invoked as part 
of program termination. 

RANDU , 

RAN 

returns a pseudo random—real number with a uniform 
distribution between 0 and 1. 

SETERR 

allows the user to set a count specifying the number of 
times to ignore a certain error condition. 

ERRTST 

allows the user program to monitor the types of errors 
detected during program execution. 

ERRSNS 

allows the user program to obtain information about the 
most recent error that has occurred during program 
execution. 

UNLOCK 

(RSTS/E only). Unlocks the disk block currently held for 
update on the file open for shared access on the logical 
unit specified. 
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B.2 ASSIGN 

The CALL ASSIGN statement should not be used in conjunction with the 
CALL OPEN statement. In proper context, the ASSIGN subroutine allows 
the association of device and filename information with a logical unit 
number. The ASSIGN call, if present, must be executed before the 
logical unit is opened for I/O operations (by READ or WRITE) for 
sequential-access files, or before the associated DEFINE FILE 
statement for random-access files. The assignment remains in effect 
until the end of the program or until the file is closed by CALL CLOSE 
or the CLOSE statement, and a new CALL ASSIGN performed. The call to 
ASSIGN has the general forms 

CALL ASSIGN(n, name, icnt, mode, control, numbuf) 

CALL ASSIGN requires only the first argument, all others are optional, 
and if omitted, are replaced by the default values as noted in the 
argument descriptions. However, if any argument is to be included, 
all arguments that precede it must also be included. 


NOTE 

Under RSTS/E, any project-programmer 
number or protection code information 
supplied to CALL ASSIGN is ignored. If 
the ability to supply such information 
is desired, CALL OPEN should be used. 


A description of the arguments to the ASSIGN routine follows: 


n logical unit number expressed as an integer constant or 

variable. 

name Hollerith or literal string containing any standard 

RT-11 or RSTS/E file specification. If the device is 
not specified, then the device remains unchanged from 
the default assignments. If a filename is not 
specified, the default names, as described in Section 
3.7, are used. The three options which can be included 
in the file specification are: 

/N specifies no carriage control translation. 

This option overrides the value of the 
'control 1 argument. 

/C specifies carriage control translation. This 

option overrides the value of the 'control* 
argument. 

/B:n specifies the number of buffers, n, to use 

for I/O operations. The single argument, n, 
should be of value 1 or 2. This option 
overrides the value of the 'numbuf* argument. 
Multi-buffering is not supported under 
RSTS/E. 

If name is simply a device specification, the device is 
opened in a non-file structured manner, and the device 
is treated in a non-file structured manner. 
Indiscriminate use of this feature on directory devices 
such as disk or DECtape can be dangerous (i.e., damage 
the directory structure). 
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icnt 


mode 


control 


numbuf 


specifies the number of characters in the string 
'name 1 . If 'icnt* is zero, the string 'name 1 is 
processed until the first blank or null character is 
encountered. If 'icnt* is negative, program execution 
is temporarily suspended. A prompt character (*) is 
sent to the terminal, and a filename specification, 
with the same form as ‘name 1 above, terminated by a 
carriage return, is accepted from the keyboard. 

specifies the method of opening the file on this unit. 
This argument can be one of the following: 

1 RDO 1 the file is read only. A fatal error occurs 

if a FORTRAN write is attempted on this unit. 
If the specified file does not exist, runtime 
error 28 (OPEN FAILED FOR FILE) is reported. 

'NEW' a new file of the specified name is created; 

this file does not become permanent until the 
associated logical unit is closed via the 
CALL CLOSE routine, the CLOSE statement or 
program termination. If execution is aborted 
by typing CTRL~C, the file is not preserved. 

'OLD 1 the file already exists. If the specified 

file does not exist, runtime error 28 (OPEN 
FAILED FOR FILE) is reported. 

'SCR 1 the file is only to be used temporarily and 

is deleted when it is closed. 

If this argument is omitted, the default is determined 
by the first I/O operation performed on that unit. If 
a WRITE operation is the first I/O operation performed 
on that unit, 'NEW 1 is assumed. If a READ operation is 
first, 1 OLD* is assumed. 

specifies whether carriage control translation is to 
occur. This argument can be one of the following: 

'NC 1 all characters are output exactly as 

specified. The record is preceeded by a line 
feed character and followed by a carriage 
return character. 

*CC* the character in column one of all output 

records is treated as a carriage control 
character. (See the PDP-11 FORTRAN Language 
Reference Manual .) 

If not specifically changed by the CALL ASSIGN 
subroutines, the terminal and line printer assume by 
default 'CC', and all other devices assume 'NC*. 

specifies the number of internal buffers to be used for 
the I/O operation. A value of 1 is appropriate under 
normal circumstances. If this argument is omitted, one 
internal buffer is used. Multi-buffering is not 
supported under RSTS/E. 
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B.3 OPEN (RSTS/E ONLY) 

The CALL OPEN statement should not be used in conjunction with the 
OPEN statement. The subroutine OPEN is an extension of the ASSIGN 
routine for RSTS/E. OPEN allows a specified file to be opened and 
associated with a particular FORTRAN logical unit. In the OPEN call, 
all arguments (except "n" and "name") are optional and will default if 
not specified. However, if any argument is to be included, all 
arguments that precede it must also be included. 

A description of the arguments to the OPEN subroutine follows: 

CALL OPEN (n, name, icnt, disp, control, numbuf, iotype, p, pn, prot, 
mode, cluster) 

where 


n 

is the integer specification of the logical unit to be 
associated with the file. 

name 

is a variable, array, or quoted string, whose contents 
specify the name (and possibly the project-programmer 
number and protection code) of the file to be opened. 

icnt 

is an integer value which controls the interpretation 
of the 'name 1 argument. If 'icnt' is positive, it 
specifies the number of characters to be taken from the 
'name' argument as the filename string. If 'icnt' is 
zero, 'name 1 is scanned until the first blank or null 
character is encountered. If a negative value is given 
for 'icnt', program execution is temporarily suspended, 
a prompt character (*) is sent to the terminal, and a 
filename specification, terminated by a carriage 
return, is accepted from the keyboard. 

disp 

is a string specification of the disposition of the 
file on this unit. This argument can be one of the 

following: 

1 RDO 1 the file is read only. A fatal error occurs if a 
FORTRAN write is attempted on this unit. If the 
specified file does not exist, runtime error 28 
(OPEN FAILED FOR FILE) is reported. 

'NEW* a new file of the specified name is created; 
this file does not become permanent until the 
associated logical unit is closed via the CALL 
CLOSE routine, the CLOSE statement or program 
termination. If execution is aborted by typing 
CTRL'C, the file is not preserved. 

'OLD 1 the file is assumed to exist. If the file is not 
found in the specified directory, or is protected 
against access by the user, a fatal error 

results. 

'SCR' the file is only to be used temporarily and will 
be deleted when it is closed. 

If this argument is not given, the default is set to 
'NEW'. 
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control 


numbuf 


iotype 


P 


pn 


prot 


mode 


cluster 


is a string argument which specifies whether carriage 
control translation is to occur. This argument can be 
one of the followings 

'NC' all characters are output exactly as specified. 
The record is preceded by a line feed character 
and followed by a carriage return character. 

'CC 1 the character in column one of all output records 
is treated as a carriage control character. (See 
the PDP-11 FORTRAN Language Reference Manual.) 

If not specifically changed by the OPEN routine, the 
user's terminal and the line printer assume by default 
'CC', and all other devices assume 'NC'. 

retained for argument list compatibility with the RT-11 
ASSIGN system subroutine; has no function under RSTS/E 
and should be omitted or given the value 1. 

is a string argument which specifies theraype of 
input/output operations to be performed on a unit. 
This argument can be one of the following; 

FOR' the unit is to be opened for formatted 

input/output. 

'UNF 1 the unit is to be opened for unformatted 

input/output. 

'RAN' the unit is to be opened for random-access 
input/output. 

If this argument is not specified, it defaults to 
'FOR’. 

is an integer value giving the default project code to 
be used (in conjunction with the "pn" argument) if no 
project-programmer number specification is found in 
"name". 

is an integer value giving the default programmer code 
to be assumed if no project-programmer specification 
appears in "name". 

is an integer value specifying the protection code to 
be assigned by default if no protection code indication 
occurs in "name". This argument takes effect only on 
output files. 

is an integer specification of the RSTS/E mode to be 
used on opening the file (refer to the RSTS/E 
Programming Manual for device-specific mode 
information). 

is an integer specification of the cluster size to be 
assigned to the file to be opened. This argument only 
takes effect on output files (i.e., files with the 
'NEW' or 'SCR' attribute). 
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B•4 CLOSE 

The user has the option of the CALL CLOSE routine and the CLOSE 
statement. The CALL CLOSE routine is a subset of the CLOSE statement 
(see the PDP-11 FORTRAN Language Reference Manual ). CLOSE explicitly 
closes any file open on the specified logical unit. If the file was 
open for output, any partially filled buffers are written to the file 
before closing it. After the execution of CALL CLOSE, any buffers 
associated with the logical unit are freed for reuse and all 
information supplied in any previous CALL ASSIGN for the logical unit 
is deleted. The logical unit is thus free to be associated with 
another file. 

An implicit CLOSE operation is performed on all open logical units 
when a program terminates (due to a fatal error condition, or the 
execution of STOP or CALL EXIT). 

The format of the call is: 

CALL CLOSE (ilun) 

where ilun is an integer constant, variable, array element, or 
expression specifying the logical unit to be closed. 


B.5 DATE 

The DATE subroutine can be used in a FORTRAN program to obtain the 
current date as set within the system. The DATE subroutine is called 
as follows: 

CALL DATE(array) 

where array is a predefined array able to contain a 9-byte string. 
The array specification in the call can be expressed as the array name 
alone: 


CALL DATE(a) 

in which the first three elements of the real array a are used to hold 
the date string, or: 

CALL DATE(a(i)) 

which causes the 9-byte string to begin at the i(th) element of the 
array a. 

The date is returned as a 9-byte (9-character) string in the form: 
dd-mmm-yy 


where: 


dd is the 2-digit date 

mmm is the 3-letter month specification 
yy is the last two digits of the year 

For example: 

25-DEC-7 6 
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B.6 IDATE 


IDATE returns three integer values representing the current month, 
day, and year. The call has the form: 

CALL IDATE(i,j,k) 

If the current date were March 19, 1976 the values of the integer 
variables upon return would be: 

i = 3 
j = 19 
k * 76 


B.7 EXIT 

A call to the EXIT subroutine, in the form: 

CALL EXIT 

is equivalent to the STOP statement except that no message appears on 
the user's terminal in that it causes program termination, closes all 
files, and returns to the monitor; unlike the STOP statement, it does 
not print a STOP message. 


B. 8 USEREX 

USEREX is a subroutine which allows specification of a routine to 
which control is passed as part of program termination. This allows 
disabling of interrupts enabled in non-FORTRAN routines. If these 
interrupts are not disabled prior to program exit the integrity of the 
operating system cannot be assured. The form of the subroutine call 
is: 


CALL USEREX (name) 

where 'name' is the routine to which control is passed and should 
appear in an EXTERNAL statement somewhere in the program unit. 
Control is transferred with a JMP instruction after all procedures 
required for FORTRAN IV program termination have been completed. The 
transfer of control takes place instead of the normal return to the 
monitor. Thus, if the user desires to have control passed back to the 
monitor, the routine specified by USEREX must perform the proper exit 
procedures. 


B.9 RANDU,RAN 

The random number generator can be called as a subroutine, RANDU, or 
as an intrinsic function, RAN. The subroutine call is performed as 
follows: 


CALL RANDU (i(l) ,i(2) ,x) 
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where i(1) and i(2) are previously defined integer variables and x is 
the real variable name, in which a random number between 0 and 1 is 
returned, i(1) and i(2) should be initially set to 0. i(l) and i(2) 
are updated to a new generator base during each call. Resetting i(l) 
and i(2) to 0 repeats the random number sequence. The values of i(l) 
and i(2) have a special form; only 0 or saved values of i(l) and i(2) 
should be stored in these variables. 

Use of the random number subroutines is similar to the use of the RAN 
function where: 

x =RAN(i(1) ,i(2)) 

is the functional form of the random number generator. 


B.10 SETERR 

SETERR allows the user to specify the disposition of certain OTS 
detected error conditions. Only OTS error diagnostics 1-16 should 
be changed from their default error classification (see Section C.2). 
If errors 0 or 20 - 69 are changed from the default classification of 
FATAL, execution continues but in an undetermined state. The form of 
the call is: 


CALL SETERR (number,ncount) 

where 'number' is an integer variable or expression specifying the OTS 
error number (see Section C.2) , and 'ncount' is a LOGICAL*l variable 
or expression with one of the following values: 

Value Meaning 

0 Ignore all occurrences after logging them on the user 

terminal. 

1 First occurrence of the error will be fatal. 

2-127 The nth occurrence of the error will be fatal; the 

first n-1 occurrences will be logged on the user 
terminal. 


128-255 Ignore all occurrences of the error, 


B. 11 ERRTST 

ERRTST allows the user program to monitor the types of errors detected 
during program execution. The general form of the call is: 

CALL ERRTST (ierr,ires) 

ierr is an INTEGER*2 quantity specifying the error number for which 
the test is to be done. 

ires is an INTEGER*2 variable or array element which is to receive the 
status of the error. 

ires=l if an error has occurred 
ires=2 if an error has not occurred 

A call to ERRTST will reset the flag governing the specified error 
condition. 
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B.12 ERRSNS 

ERRSNS allows specifying from zero to two arguments. When ERRSNS is 
called with zero arguments, previous error data is cleared, thus 
allowing testing for errors in certain program sections. The qeneral 
call is: 

CALL ERRSNS (ires,iunit) 

ires is an INTEGER*2 variable or array element into which the numeric 
code for the most recent error will be stored. A zero will be stored 
if there is no error. 

iunit is an INTEGER*2 variable or array element into which the logical 
unit number of input/output errors will be stored, if the most recent 
error was input/output related. 


B. 13 UNLOCK 

The UNLOCK routine is for RSTS/E only. It unlocks the disk block 
being held for update on the file open for shared access on the 
specified logical unit. The general form of the call is: 

CALL UNLOCK (iunit) 

iunit is an INTEGER*2 expression specifying the logical unit on which 
the disk file containing the locked block is open. 
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FORTRAN IV ERROR DIAGNOSTICS 


C.l COMPILER ERROR DIAGNOSTICS 

The FORTRAN IV Compiler, while reading and processing the FORTRAN 
source program, can detect syntax errors (or errors in general form) 
such as unmatched parentheses, illegal characters, unrecognizable key 
words, missing or illegal statement parameters. 

The error diagnostics are generally clear in specifying the exact 
nature of the error. In most cases, a check of the general form of 
the statement in question as described in the PDP-11 FORTRAN Language 
Reference Manual will help determine the location of the error. 

Some of the most common causes of syntax errors, however, are typing 
mistakes. A typing mistake can sometimes cause the compiler to give 
very misleading error diagnostics. The user should note, and take 
care to avoid, the following common typing mistakes: 

1. Missing commas or parentheses in a complicated expression or 
FORMAT Statement. 

2. Misspelling of particular instances of variable names. If 
the compiler does not detect this error (it usually cannot), 
execution may also be affected. 

3. An inadvertent line continuation signal on the line following 
the statement in error. 

4. If the user terminal does not clearly differentiate between 0 
(zero) and the letter O, what appear to be identical 
spellings of variable names may not appear so to the 
compiler, and what appears to be a constant expression may 
not appear so to the compiler. 

If any error or warning conditions are detected in a compilation, the 
following message is printed on the initiating terminal: 

7F0RTRAN-I-[name]Errors:n,Warnings:m 

where: 

[name] is the 6-character name of the program unit being 

compiled. .MAIN. is the default name of the main 
program if no program statement is used. The default 
name for BLOCK DATA program units is .DATA.. 

n represents the number of error-class messages (i.e., 

those messages that cause the statement in question to 
be deleted). 
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m represents the number of warning—class messages (i.e., 

those messages indicating conditions that can be 
ignored or corrected, such as missing END statements or 
questionable programming practices). Note that some 
warning conditions will only be detected if the /W 
switch is specified, (see Section C.I.3.). 

The next three sections describe the initial phase and secondary phase 
error diagnostics and the fatal FORTRAN IV Compiler error diagnostics. 

The following is an example of a FORTRAN IV program with diagnostics 
issued by the compiler. 

FORTRAN IV V02*01 Wed 03-Aud-77 09t00t05 PAGE 001 


0001 

0002 

0003 

0004 

0005 10 

0006 10 

***** M 

0007 

0008 


DOUBLE PRECISION DBLE DBLE2 
DATA INT/100/ DBLE2/500*/ 
DBLE2 » INT/2 + 5* + DBLE 
WRITE t (6*10) DBLE i DBLE 
FORMAT <lXr2F12*6) 

STOP 

INTEGER INT 
END 


FORTRAN IV Diagnostics for Program Unit ♦MAIN♦ 

In line 0004 ? Error* Syntax error 


FORTRAN IV Storage Map for Prodram Unit ♦MAIN♦ 

Local Variables* *PSECT $DATA* Size * 000024 ( 10* words) 

Name Type Offset Name Type Offset Name Type Offset 

DBLE R*4 000020 DBLEDB R*8 000010 DBLE2 R*4 000004 

INT 1*2 000002 


C.1.1 Errors Reported by the Initial Phase of the Compiler 

Some of the easily recognizable FORTRAN syntax errors are detected by 
the initial phase of the compiler. Errors that cause the statement in 
question to be aborted are tabulated in the ERROR count, whereas those 
that are correctable by the compiler are counted as WARNINGS. 

The error diagnostics are printed after the source statement to which 
they apply (the L error diagnostic is an exception). The general form 
of the diagnostic is as follows: 

***** c 

Where c is a code letter whose meaning is described below: 
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INITIAL PHASE ERROR DIAGNOSTICS 


Code Letter 


Description 


B 


C 


E 


H 


I 


K 


L 


M 

P 

S 


U 


Columns 1-5 of a continuation line are not blank. 
Columns 1-5 of a continuation line must be blank 
except for a possible 'D* in column 1; the 
columns are ignored (WARNING). 


Illegal continuation. Comments cannot be 
continued and the first line of any program unit 
cannot be a continuation line. If a line consists 
only of a carriage return-line feed combination 
then it is considered to be a blank line. If it 
has a label field then it must have a statement 
field. The line is ignored (WARNING). 


Missing END statement. An END statement is 
supplied by the compiler if end-of-file is 
encountered (WARNING). 


Hollerith string 
longer than 255 
remainder of the 
ignored. 


or quoted 
characters 
statement; 


literal string is 
or longer than the 
the statement is 


Non-FORTRAN character used. The line contains a 
character that is not in the FORTRAN character set 
and is not used in a Hollerith string or comment 
line. The character is ignored (WARNING). 

Illegal statement label definition. Illegal 
(non-numeric) character in statement label; the 
illegal statement label is ignored (WARNING). 

Line too long to print. There are more than 80 
characters (including spaces and tabs) in a line. 
Note: this diagnostic is issued preceding the 
line containing too many characters. The line is 
truncated to 80 characters (WARNING). 

Multiply defined label. The label is ignored 
(WARNING). 

Statement contains unbalanced parentheses. The 
statement is ignored. 

Syntax error. Multiple equal signs, etc. The 
statement is not of the general FORTRAN statement 
form; the statement is ignored. 

Statement could not be identified as a legal 
FORTRAN statement. The statement is ignored. 


C.1.2 Errors Reported by Secondary Phases of the Compiler 

Those compiler error diagnostics not reported by the initial phase of 
the compiler appear immediately after the source listing and 
immediately before the storage map. Since the diagnostics appear 
after the entire source program has been listed, they must designate 
the statement to which they apply by using the internal sequence 
numbers assigned by the compiler. 
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The general form of the diagnostic is: 

Error: 

IN LINE nnnn, text 

Warning: 

Where nnnn is the internal sequence number of the statement in 
question, and text is a short description of the error. 

Below, listed alphabetically, are the error diagnostics. Included 
with each diagnostic is a brief explanation. Refer to the PDP-11 
FORTRAN Language Reference Manual for information to help correct the 
error. 

The notation **** signifies that a particular variable name or 
statement label appears at that place in the text. 


SECONDARY PHASE ERROR DIAGNOSTICS 


ACCESS='APPEND' ILLEGAL UNDER RT-11 

The ACCESS="APPEND' option has been specified for a 
program to be executed under RT-11. "APPEND" is not 
supported in the RT-11 environment. Rework the program 
as required. 

ACCESS='DIRECT' REQUIRES FORM='UNFORMATTED' 

FORM='FORMATTED' has been specified for a direct access 
file. FORTRAN IV supports only unformatted direct 
access input/output. Correct the program logic. 

ACCESS='DIRECT' REQUIRES RECORDSIZE= FOR RT-11 AND RSTS/E 

No RECORDSIZE specification was found when attempting 
to open a direct-access file. Add the required 
RECORDSIZE= specification to the OPEN statement. 

ADJUSTABLE DIMENSIONS ILLEGAL FOR ARRAY **** 

An adjustable array was not a dummy argument in a 
subprogram or the adjustable dimensions were not 
integer dummy arguments in the subprogram. A dimension 
of one is used. Correct the source program. 

ARRAY EXCEEDS MAXIMUM SIZE or 

ARRAY **** EXCEEDS MAXIMUM SIZE 

The storage required for a single array or for all 
arrays in total is more than is physically addressable 
(>32K words). This particular error may reference 
either the actual statement containing the array in 
question, or the first statement in the program unit. 
Correct the statement in error or reduce the space 
necessary for array storage. 

ARRAY **** HAS TOO MANY DIMENSIONS 

An array has more than seven dimensions. Correct the 
program. The legal range for dimensions is one to 
seven. 

ASSOCIATEVARIABLE ILLEGAL FOR SEQUENTIAL FILE 

The OPEN statement in question specifies an associated 
variable for a non-direct-access file. This is usually 
caused by failure to specify ACCESS='DIRECT' for a 
direct-access file. Add ACCESS='DIRECT', or delete the 
ASSOCIATEVARIABLE clause. 
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**** ATTEMPTS TO EXTEND COMMON BLOCK BACKWARDS 

While attempting to EQUIVALENCE arrays in COMMON, an 
attempt was made to extend COMMON past the recognized 
beginning of COMMON storage. Correct the program 

logic. 

COMMON BLOCK EXCEEDS MAXIMUM SIZE 

An attempt was made to allocate more space to COMMON 
than is physically addressable (>32k words) . Correct 
the statement in error. 

CONSTANT IN FORMAT STATEMENT NOT IN RANGE 

An integer constant in a FORMAT statement was not in 

the proper range. Check that all integer constants are 

within the legal range (1 to 255). 

DANGLING OPERATOR 

An operator etc.) is missing an operand. 

Example: I=J+. Correct the statement in error. 

DEFECTIVE DOTTED KEYWORD 

A dotted relational operator was not recognized or 
there is a possible misuse of decimal point. Check the 
format for relational operators; correct the statement 
in error. 

DEFINE FILE MODE MUST BE 'U' 

The third argument inside parentheses in a DEFINE FILE 
statement is not 'U* (unformatted). Correct the mode 
specification. 

DISPOSE='PRINT' IS IGNORED UNDER RT-11 

The OPEN statement requests spooling of a file in the 
RT-11 environment, which does not provide spooling 
services. Change the specification to DISPOSE= 1 SAVE 1 . 
The file may be printed after program termination using 
the keyboard monitor PRINT command. 

DO TERMINATOR **** PRECEDES DO STATEMENT 

The statement specified as the terminator of a DO loop 
did not appear after the DO statement. Correct the 
program logic. 

EXPECTING LEFT PARENTHESIS AFTER **** 

An array name or function name reference is not 
followed by a left parenthesis. Correct the statement 
so that the left parenthesis is included. 

EXPECTING LEFT PARENTHESIS AFTER SUBPROGRAM NAME 

A SUBROUTINE or FUNCTION name occurs without an 
argument list specification. Check for a typographical 
error, or the use of the same name for a local variable 
and a subprogram. 

EXTENDSIZE= KEYWORD IS NOT SUPPORTED UNDER RT-11 

An EXTENDSIZE specification appears in a program to be 
executed under RT-11; file extension is not supported 
in this environment. Correct the program logic. 
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EXTRA CHARACTERS AT END OF STATEMENT 

All the necessary information for a syntactically 
correct FORTRAN statement has been found on this line, 
but more information exists. Check that a comma is not 
missing from the line or that an unintentional 
continuation signal does not appear on the next line. 

FLOATING CONSTANT NOT IN RANGE 

A floating constant in an expression is too close to 
zero to be represented in the internal format. Use 
zero if possible. 

FORMATTED FILE REQUIRES 'FORTRAN' OR 'LIST' UNDER RT-11 AND 

RSTS/E 

A CARRIAGECONTROL='NONE' specification was given for a 
formatted file. Specify either 'FORTRAN' or 'LIST' for 
the desired carriage control. 

FORM='UNFORMATTED' REQUIRES 'NONE' UNDER RT-11 AND RSTS/E 

A CARRIAGECONTROL='FORTRAN' or 'LIST' specification was 
given for an unformatted file. Remove the 
CARRIAGECONTROL specification. 

ILLEGAL ADJACENT OPERATOR 

Two operators (*,/, logical operators, etc.) are 
illegally placed next to each other. Example: I/*J. 
Correct the statement in error. 

ILLEGAL CHARACTERS IN EXPRESSION 

An illegal character has been found in an expression. 
Check for a typographical error in the statement. 

ILLEGAL DO TERMINATOR ORDERING AT LABEL **** 

DO loops are nested improperly. Verify that the range 
of each DO loop lies completely within the range of the 
next outer loop. 

ILLEGAL DO TERMINATOR STATEMENT **** 

A DO statement terminator was not valid. Verify that 
the DO statement terminator is not a GOTO, arithmetic 
IF, RETURN, another DO statement, or logical IF 
containing one of these statements. 

ILLEGAL ELEMENT IN I/O LIST 

An item, expression, or implied DO specifier in an I/O 
list is of illegal syntax. Correct the I/O list. 

ILLEGAL ENCODE/DECODE FORMAT SPECIFIER 

The format specification (second argument inside 

parentheses) in an ENCODE/DECODE statement is not a 
FORMAT statement label or array name. Correct the 
FORMAT specification. 

ILLEGAL ENCODE/DECODE LENGTH EXPRESSION 

The length specification (first argument inside 

parentheses) in an ENCODE or DECODE statement is not an 
integer expression. Correct the length expression. 

ILLEGAL ENCODE/DECODE TARGET 

The third argument inside parentheses in an ENCODE or 
DECODE statement is not the name of an array, array 
element, or variable. Correct the target 

specification. 
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ILLEGAL INITIAL VALUE EXPRESSION IN DO STATEMENT 

A valid integer expression does not follow the equals 
sign in a DO statement. Correct the initial value 
expression. 

ILLEGAL STATEMENT IN BLOCK DATA 

An illegal statement was found in a BLOCK DATA 
subprogram. Verify that a FORMAT or executable 
statement does not occur in a BLOCK DATA subprogram. 

ILLEGAL STATEMENT ON LOGICAL IF 

The statement contained in a logical IF was not valid. 
Verify that the statement is not another logical IF or 
DO statement. 

ILLEGAL SUBSCRIPTS OR SUBPROGRAM ARGUMENT 

An illegal element occurred within a subscript list or 
argument list to a subprogram. Correct the erroneous 
statement. 

ILLEGAL TYPE FOR OPERATOR 

An illegal variable type has been used with an 
exponentiation or logical operator. Check that the 
variable type is valid for the operation in question. 

ILLEGAL USAGE OF OR MISSING LEFT PARENTHESIS 

A left parenthesis was required but not found, or a 
variable reference or constant is illegally followed by 
a left parenthesis. Correct the format of the 
statement in error. 

INTEGER OVERFLOW 

An integer constant or expression value is outside the 
range -32767 to +32767. Correct the value of the 
integer constant or expression so that it falls within 
the legal range (-32767 to +32767). 

INVALID COMPLEX CONSTANT 

A complex constant has been improperly formed. Correct 
the statement in error. 

INVALID DIMENSIONS FOR ARRAY **** 

An attempt was made, while dimensioning an array, to 
explicitly specify zero as one of the dimensions. 
Verify that zero is not used as a dimension. 

INVALID END= OR ERR= KEYWORD 

The END= or ERR= specification in an input/output 
statement is incorrectly formatted. Check for a 
typographical error in the statement. 

INVALID EQUIVALENCE 

An illegal EQUIVALENCE, or EQUIVALENCE that is 
contradictory to a previous EQUIVALENCE, was 
encountered. Correct the program logic. 

INVALID FORMAT SPECIFIER 

A format specifier was illegally used. Correct the 
statement so that the format specifier is the label of 
a FORMAT statement or an array name. 
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INVALID 


INVALID 


INVALID 


INVALID 


INVALID 


INVALID 


INVALID 


INVALID 


INVALID 


INVALID 


INVALID 


IMPLICIT RANGE SPECIFIER 

An illegal implicit range specifier, (i.e., 
non-alphabetic specifier, or specifier range in reverse 
alphabetic order), was encountered. Verify that the 
implicit range specifier indicates alphabetic 
characters in alphabetic order. 

LOGICAL UNIT 

A logical unit reference was incorrect. Correct the 
logical unit reference so that it is an integer 
variable or constant in the range 1 to 99. 

OCTAL CONSTANT 

An octal constant is too large or contains a digit 
other than 0-7. Correct the constant so that it 
contains only legal digits that fall within the octal 
range 0 to 177777. 

OPTIONAL LENGTH SPECIFIER 

A data type declaration optional length specifier is 
illegal. For example, REALM and REALM are legal, but 
REALM is not. Correct the statement so that it 
contains only a valid data type declaration length. 

RADIX-50 CONSTANT 

An illegal character was detected in a RADIX-50 
constant. Verify that only characters from the 
RADIX-50 character set are used in a RADIX-50 constant. 

STATEMENT LABEL REFERENCE 

Reference has been made to a statement number that is 
of illegal construction. For example, GOTO 999999 is 
illegal since the statement number is too long. Check 
that the statement number consists of one to five 
decimal digits placed in the first five columns of a 
statement's initial line and that it does not contain 
only zeroes. 

SUBROUTINE OR FUNCTION NAME 

A name used in a CALL statement or function reference 
is not valid. For example, use of an array name in a 
CALL statement routine name reference is illegal. 
Verify that the name specified in the statement is 
spelled correctly. 

TARGET FOR ASSIGNMENT 

The left side of an arithmetic assignment statement is 
not a variable name or array element reference. 
Correct the statement in error. 

TYPE SPECIFIER 

An unrecognizable data type was used. Verify that the 
data type indicated is valid. 

USAGE OF SUBROUTINE OR FUNCTION NAME 

A function name appeared in a DIMENSION, COMMON, DATA, 
or EQUIVALENCE or data type declaration statement. 
Correct the statement in error. 

VARIABLE NAME 

A variable name contains an illegal character, is 
missing, or does not begin with an alphabetic 
character. Correct the statement in error. 
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LABEL ON DECLARATIVE STATEMENT 

A label was found on a declarative statement. Correct 
the program so that declarative statements do not have 
labels. 

MISSING ASSIGNMENT OPERATOR 

The first operator seen in an arithmetic assignment 
statement was not an equal sign (=). For example, 
I+J=K. Correct the arithmetic assignment statement in 
error. 

MISSING COMMA 

The comma delimiter was expected but not found. 
Correct the format of the statement in error. 

MISSING COMMA IN OPEN OR CLOSE KEYWORD LIST 

Two options in an OPEN/CLOSE keyword list are not 
separated by a comma. Check for a typographical error 
in the statement. 

MISSING DELIMITER IN EXPRESSION 

Two operands have been placed next to each other in an 
expression with no operator between them. Correct the 
statement in error. 

MISSING EXPRESSION 

A required expression (for example, the limit 
expression in a DO statement) was omitted. Correct the 
syntax of the statement. 

MISSING LABEL 

A statement label was expected but not found. For 
example, ASSIGN J TO I is illegal; a valid statement 
label reference should precede 'TO* but does not. 
Verify that the reference preceding 'TO* is a valid 
statement label of an executable statement in the same 
program unit as the ASSIGN statement. 

MISSING LABEL LIST AFTER COMMA 

In an assigned GOTO statement, the integer variable was 
followed by a comma but no list was found. Check for a 
typographical error in the statement. 

MISSING LEFT PARENTHESIS AFTER OPEN OR CLOSE 

An OPEN or CLOSE statement does not have a left 
parenthesis preceding the keyword list. Check for a 
typographical error in the statement. 

MISSING OPERATOR AFTER EXPRESSION 

An expression was not terminated by a comma, right 
parenthesis, or other operator. Check for a 

typographical error in the statement. 

MISSING QUOTATION MARK 

In a FIND statement, the logical unit number and record 
number were not separated by a single quotation mark. 
Correct the statement in error. 

MISSING RIGHT PARENTHESIS 

A right parenthesis was expected but not found. For 
example, READ(5,100,) is illegal; the first non-blank 
character after the format reference should be a right 
parenthesis but is not. Correct the format of the 
statement in error. 
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MISSING 'TO 1 IN ASSIGN STATEMENT 

The keyword 'TO* does not follow the label 
specification in an ASSIGN statement. Check for a 
typographical error in the statement. 

MISSING VALUE FOR KEYWORD IN OPEN OR CLOSE STATEMENT 

A keyword requiring a value was specified without a 
value. Correct the syntax of the statement. 

MISSING VARIABLE 

A variable was expected, but not found. For example, 
ASSIGN 100 TO 1 is illegal? a variable name should 
follow the 'TO* but does not. Verify that the 
reference following ‘TO 1 is a valid integer variable 
name. 

MISSING VARIABLE OR CONSTANT 

An operand (variable or constant) was expected but a 
delimiter (comma, parenthesis, etc.) was found. For 
example, WRITE() is illegal; a unit number should 
follow the open parenthesis, but a delimiter (close 
parenthesis) is encountered instead. Correct the 
format of the statement in error. 

MODES OF VARIABLE **** AND DATA ITEM DIFFER 

The data type of each variable and its associated data 
list item must agree in a DATA Statement. Correct the 
format of the items in the DATA statement. 

MULTIPLE DECLARATION FOR VARIABLE **** 

A variable appeared in more than one data type 
declaration statement or dimensioning statement. 
Subsequent declarations are ignored. Correct the 
program logic. 

MULTIPLE DECLARATION OF OPEN OR CLOSE KEYWORD 

A keyword has been specified more than once in a single 
OPEN or CLOSE statement. Remove the incorrect or 
duplicate reference to the keyword. 

NOSPANBLOCKS KEYWORD IS IGNORED UNDER RT-11 AND RSTS/E 

A NOSPANBLOCKS specification was included in an OPEN 
statement. Delete the NOSPANBLOCKS specification from 
the statement. 

OPEN OR CLOSE KEYWORD VALUE MUST BE QUOTED STRING 

A keyword which requires a quoted-string value was 
given an expression value. Correct the syntax of the 
statement. 

OPEN OR CLOSE STATEMENT REQUIRES UNIT= SPECIFIER 

No UNIT= specification is present in the OPEN or CLOSE 
statement in question to select the desired logical 
unit. Add the UNIT= specification to the s~Dtement. 

PARENTHESES NESTED TOO DEEPLY 

Group repeats in a FORMAT statement have been nested 
too deeply. Limit group repeats to eight levels of 
nesting. 

P-SCALE FACTOR NOT IN RANGE -127 TO +127 

P-scale factors were not in the range -127 to +127. 
Correct the statement in error. 
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REFERENCE TO INCORRECT TYPE OF LABEL **** 

A statement label reference that should be a label on a 
FORMAT statement is not such a label, or a statement 
label reference that should be a label on an executable 
statement is not such a label. Correct the program 
logic. 

REFERENCE TO UNDEFINED STATEMENT LABEL 

A reference has been made to a statement label that has 
not been defined anywhere in the program unit. Correct 
the program logic. 

SHARED KEYWORD IS IGNORED UNDER RT-11 

A SHARED specification was included in a program to be 
executed under RT-11. Delete the SHARED specification 
from the statement. 

STATEMENT MUST BE UNLABELED 

A DATA, SUBROUTINE, FUNCTION, BLOCK DATA, arithmetic 
statement function definition, or declarative statement 
was labeled. Correct the statement in error. 

STATEMENT TOO COMPLEX 

An arithmetic statement function has more than ten 
dummy arguments or the statement is too long to 
compile. Verify that the number of dummy arguments in 
an arithmetic statement does not exceed ten; break 
long statements into two or more smaller statements. 

SUBROUTINE OR FUNCTION STATEMENT MUST BE FIRST 

A SUBROUTINE, FUNCTION or BLOCK DATA statement is not 
the first statement in a program unit. Ensure that, if 
present, these statements appear first in a program 
unit. 

SUBSCRIPT OF ARRAY **** NOT IN RANGE 

Array subscripts that are constants or constant 
expressions are found to be outside the bounds of the 
array's dimensions. The operation in question is 
aborted. Correct the program. 

SYNTAX ERROR 

The general form of the statement was not fdrmatted 
correctly. Check the general format of the statement 
in error and correct the program. 

SYNTAX ERROR IN INTEGER OR FLOATING CONSTANT 

An integer or floating constant has been incorrectly 
formed. For example, 1.23.4 is an illegal floating 
constant because it contains two decimal points. 
Correct the format of the integer or floating constant 
in question. 

SYNTAX ERROR IN LABEL LIST 

The list of labels for an assigned or computed GOTO 
statement is improperly formatted, or contains a 
reference to an entity which is not the label on an 
executable statement. Correct the format of the list. 

UNARY OPERATOR HAS TOO MANY OPERANDS 

Two operands have been specified for an operator (such 
as .NOT.) which accepts only one operand. Check for a 
typographical error in the statement. 


C-ll 








FORTRAN IV ERROR DIAGNOSTICS 


UNLABELED FORMAT STATEMENT 

A FORMAT statement was not labeled. Correct the FORMAT 
statement in error by assigning it the proper label. 

UNRECOGNIZED KEYWORD IN OPEN OR CLOSE STATEMENT 

The OPEN or CLOSE statement in question contains a 
keyword which is not recognized by the compiler. Check 
for a misspelling or typographical error in the 
keywords used in the statement. 

UNRECOGNIZED VALUE FOR OPEN OR CLOSE KEYWORD 

A keyword which requires a quoted-string value was 
specified with an unrecognized value string. For 
example, DISPOSE = 'SURE*. Specify a valid value for 
the keyword. 

USAGE OF VARIABLE **** INVALID 

An attempt was made to EXTERNAL a common variable, an 
array variable, or a dummy argument. Or an attempt was 
made to place in COMMON a dummy argument or external 
name. Correct the program logic. 

VALUE OF CONSTANT NOT IN RANGE 

An integer constant in the designated source program 
line exceeds the maximum unsigned value (65535) . This 
error is also printed if an invalid dimension is 
specified for an array or if the exponent of a floating 
point constant is too large. Correct the statement in 
error. 

VARIABLE **** INVALID IN ADJUSTABLE DIMENSION 

A variable used as an adjustable dimension was not an 
integer dummy argument in the subprogram unit. Correct 
the program. 

WRONG NUMBER OF OPERANDS FOR BINARY OPERATOR 

An operator which requires two operands was specified 
with only one operand. Example: I = *J. Check for a 
typographical error in the statement. 

WRONG NUMBER OF SUBSCRIPTS FOR ARRAY **** 

An array reference does not have the same number of 
subscripts as specified when the array was dimensioned. 
Correct the statement in error. 


C.1.3 Warning Diagnostics 

Warning diagnostics report conditions which are not true error 
conditions, but which can be potentially dangerous at execution time, 
or can present compatibility problems with FORTRAN compilers running 
on other DEC operating systems. The warning diagnostics are normally 
suppressed, but can be enabled by use of the /WARNINGS (/W) compiler 
option. The form and placement of the warning diagnostics are the 
same as those for the secondary phase error diagnostics (see Section 
C.1.2). A listing of the warning diagnostics follows: 


C-12 










FORTRAN IV ERROR DIAGNOSTICS 






ADJUSTABLE DIMENSIONS ILLEGAL FOR ARRAY **** 

Adjustable arrays must be parameter arrays in a 
subprogram, and the adjustable dimensions must be 
integer dummy arguments in the subprogram. Any 
variation from this rule will cause a dimension of 1 to 
be used and this warning message to be issued. 

LOOP ENTRY AT LABEL **** PRECLUDES OPTIMIZATIONS 

A transfer of control occurs from outside the 
containing DO loop to the label indicated. This may 
indicate a programming error (if the loop does not have 
extended range). Possible optimization of the loop in 
question is not attempted. If optimization of the loop 
is desired, make sure that labels occurring within the 
body of the DO loop are referenced only from within 
that loop. 

MODIFICATION OF **** PRECLUDES OPTIMIZATIONS 

The indicated variable, which is used as a control 
parameter of a DO loop, is modified within the body of 
that loop. Possible optimization of the loop in 
question is not attempted. If optimization of the loop 
is desired, correct the program logic to not modify any 
of the loop control parameters in the body of the loop. 

NON-STANDARD STATEMENT ORDERING 

Although the FORTRAN IV Compiler has less-restrictive 
statement ordering requirements than those outlined in 
Chapter 7 of the PDP-11 FORTRAN Language Reference 
Manual, non-adherence to the stricter requirements may 
cause error conditions on other FORTRAN compilers. See 
Section 3.1 of this document. 

VARIABLE **** IS NOT WORD ALIGNED 

Placing a non-LOGICAL*l variable or array after a 
L0GICAL*1 variable or array in COMMON or equivalencing 
non-LOGICAL*l variables or arrays to L0GICAL*1 
variables or arrays can cause this condition. An 
attempt to reference the variable at runtime will cause 
an error condition. 

VARIABLE **** NAME EXCEEDS SIX CHARACTERS 

A variable name of more than six characters was 
specified. The first six characters were used as the 
true variable name. Other FORTRAN compilers may treat 
this as an error condition. See Section 3.2 of this 
document. 


C.1.4 Fatal Compiler Error Diagnostics 

Listed below are the fatal compiler error diagnostics. These 
diagnostics, which are sent directly to the initiating terminal, 
report hardware error conditions, conditions which may require 
rewriting of the source program, and compiler errors which may require 
attention from your Software Support Representative. 


7F0RTRAN-F-C0DE GENERATION STACK OVERFLOW 

A statement is too complex to 
complex statements. 


process. 


Simplify 
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7FORTRAN-F-COMPILER FATAL ERROR, ANALYSIS FOLLOWS 

Some type of unexpected error was encountered by 
FORTRAN. Please send the console listing with a copy 
of your program (on some machine-readable medium) with 
an SPR report. 

7FORTRAN-F-CONSTANT SUBSCRIPT STACK OVERFLOW 

Too many constant subscripts have been employed in a 
statement. Simplify the statement. 

7FORTRAN-F-DEVICE FULL 

There is insufficient room available on an output 
device specified to create the object or listing files 
required. Make more space available on the device by 
deleting unnecessary files and/or using the SQUEEZE 
command, or by redirecting the object on listing files 
to another device. 

7FORTRAN-F-DYNAMIC MEMORY OVERFLOW 

The program unit currently being compiled cannot be 
processed in the available memory space. Break the 
program unit in question into smaller subprograms, or 
recompile on a larger machine. 

7FORTRAN-F-ERROR READING SOURCE FILE 

An unrecoverable error occurred while the compiler was 
attempting to read a source program input file. 
Correct the hardware problem and recompile. 

7F0RTRAN-F-ERR0R WRITING LISTING FILE 

An unrecoverable error occurred while the compiler was 
attempting to write the listing output file. Make sure 
that the output device is write-enabled, and that 
sufficient free space exists on the device for the 
output file. Recompile the program. 

7FORTRAN-F-ERROR WRITING OBJECT FILE 

An unrecoverable error occurred while the compiler was 
attempting to write the object program output file. 
Make sure that the output device is write-enabled, and 
that sufficient free space exists on the device for the 
output file. Recompile the program. 

7FORTRAN-F-FILE NOT FOUND 

An input file specified in the command string was not 
found. Correct the command string to refer to an 
existing file. 

7FORTRAN-F-HELP FILE NOT FOUND 

The FORTRAN IV help file, SY:FORTRA.HLP, was not 
present on the system device when the help switch was 
given to the compiler. No help information is 
available. Replace the file from the FORTRAN 
distribution medium if help information is required. 

7FORTRAN-F-ILLEGAL VALUE FOR /x SWITCH 

An illegal value has been specified for a compiler 
command string switch. Refer to 1.2.2 for compiler 
option information. 

7FORTRAN-F-ILLEGAL COMMAND 

The command string presented to the compiler was 
illegal in format. Correct the command string. 
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7FORTRAN-F-ILLEGAL DEVICE 

A device specification in a compiler command string was 
illegal. Correct the command string. 

7FORTRAN-F-OPTIMIZER STACK OVERFLOW 

A statement is too complex to process, or too many 
common subexpressions occurred in one basic block of 
the source program. Simplify complex statements. 

7F0RTRAN-F-SUBEXPRESSION STACK OVERFLOW 

An attempt was made to compile a statement which could 
overflow the runtime stack at execution time. Simplify 
complex statements. 

7FORTRAN-F-UNKNOWN SWITCH-/x 

An illegal switch has been specified in the compiler 
command string. Refer to 1.2.2 for compiler option 
information. 


C.2 OBJECT TIME SYSTEM ERROR DIAGNOSTICS 

The Object Time System detects certain I/O, arithmetic, and system 
failure error conditions and reports them on the user terminal. These 
error diagnostics are printed in either a long or short form. 

The short form of the message appears as: 

7ERR nn 

where nn is a decimal error identification number. 

The long form of the message appears as: 

7ERR nn text 

where nn is a decimal error identification number and text is a short 
error description. 

The default message form is long. The short message error module can 

be linked to the program by using the /I linker switch. The module 

named $SHORT should be included from the FORTRAN library. 

There are four classes of OTS error conditions. Each error condition 
is assigned to one of these classes. An error condition 
classification for the error codes 1-16 can be changed by using the 

system subroutine SETERR. (See Section B.10). Error codes 0 and 

20-69 should not be changed from their FATAL classification or 
indeterminable results will occur. The classifications are: 

IGNORE the error is detected but no error message is sent 

to the terminal. Execution continues. 


WARNING 

the error 
execution 

message is 
continues. 

sent 

to 

the 

terminal 

and 

FATAL 

the error 
execution 

message is sent 
is terminated. 

to 

the 

terminal 

and 

COUNT:n 

the error 

message is 

sent 

to 

the 

terminal 

and 


execution 

continues 

until 

the 

nth 

occurrence 

of 


the error, at which time the error will be treated 
as FATAL. 
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If a program is terminated by a fatal error condition, active files 
may not be closed. Under RT-11, when control is returned to the 
Monitor, a CLOSE command can be given to close all active files, 
although some of the output to these active files may have been lost. 

The OTS error diagnostics are listed below along with the error type 
and a brief explanation, where necessary. 


Error Error Message 

number type 


0 


1 


2 


FATAL NON-FORTRAN ERROR CALL 

This message indicates an error condition (not 
internal to the FORTRAN run-time system) that may 
have been caused by one of four situations: 

(RT-11 only) 

1. A foreground job using SYSLIB completion 
routines was not allocated enough space (using 
the FRUN /N option) for the initial call to a 
completion routine. 

Check Chapter 4 (SYSTEM SUBROUTINE LIBRARY) of 
the RT-11 Advanced Programmers Guide for the 
formula used to allocate more space. 


09300 (RT-11 only) 

2. There was not sufficient memory for the 
background job. 

Make more memory available by unloading 
unnecessary handlers, deleting unwanted files, 
compressing the device. 

(RT-11 only) 

3. Under the single-job monitor, a SYSLIB 
completion routine interrupted another 
completion routine. 

Use the FB Monitor to allow more than one 
active completion routine. 

4. An assembly language module linked with a 
FORTRAN program issued a TRAP instruction with 
an error code that was not recognized by the 
FORTRAN error handler. 

Check the program logic. 

FATAL INTEGER OVERFLOW 

During an integer multiplication, division, or 
exponentiation operation, the value of the result 
exceeded 32767 in magnitude. 

Correct the program logic. 

FATAL INTEGER ZERO DIVIDE 

During an integer mode arithmetic operation, an 
attempt was made to divide by zero. 

Correct the program logic. 
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Error 

number 


Error 

type 


Message 


3 FATAL COMPILER GENERATED ERROR 

An attempt was made to execute a FORTRAN statement 
in which the compiler had previously detected 
errors. 


4 


5 



6 


10 


11 



Consult the program listing generated by the 
compiler (if one was requested) and correct the 
program for the errors detected at compile time. 

WARNING COMPUTED GOTO OUT OF RANGE 

The value of the integer variable or expression in 
a computed GOTO statement was less than 1 or 
greater than the number of statement label 
references in the list. 

Control is passed to the next executable 
statement. Examine the source program and correct 
the program logic. 

COUNT:3 INPUT CONVERSION ERROR 

During a formatted input operation, an illegal 
character was detected in an input field. 

A value of zero is returned. Examine the input 
data and correct the invalid record. 


IGNORE OUTPUT CONVERSION ERROR 

During a formatted output operation, the value of 
a particular number could not be output in the 
specified field length without loss of significant 
digits. 

The field is filled with asterisks ('*'). Correct 
the FORMAT statement to allow a greater field 
length. 

COUNT:3 FLOATING OVERFLOW 

During an arithmetic operation, the absolute value 
of a floating-point expression exceeded the 
largest representable real number. 

A value of zero is returned. Correct the program 
logic. 

IGNORE FLOATING UNDERFLOW 

During an arithmetic operation, the absolute value 
of a floating-point expression became less than 
the smallest representable real number. 


The real number is replaced with a value of zero. 
Correct the program logic. 

FATAL FLOATING ZERO DIVIDE 

During a REAL mode arithmetic operation an attempt 
was made to divide by zero. 

The result of the operation is set to zero. 
Correct the program logic. 
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Error Error 

number type 

Message 

13 COUNT:3 

SQRT OF NEGATIVE NUMBER 

An attempt was made to take the square root of a 
negative number. 

The result is replaced by zero. Correct the 

program logic. 

14 FATAL 

UNDEFINED EXPONENTIATION OPERATION 

An attempt was made to perform an illegal 

exponentiation operation. (For example -3.**.5 is 
illegal because the result would be an imaginary 
number.) 

The result of the operation is set to zero. 
Correct the program logic. 

15 FATAL 

LOG OF ZERO OR NEGATIVE NUMBER 

An attempt was made to take the logarithm of a 
negative number or zero. 

The result of the operation is set to zero. 
Correct the program logic. 

16 FATAL 

WRONG NUMBER OF ARGUMENTS 

One of the FORTRAN Library functions, or one of 
the system subroutines which checks for such an 
occurrence, was called with an improper number of 
arguments. 

Check the format of the particular library 
function or system subroutine call, and correct 
the call. 


The following error diagnostics should not be changed from the FATAL 
classification by use of the system subroutine SETERR: 


20 FATAL 

INVALID LOGICAL UNIT NUMBER 

An illegal logical unit number was specified in an 
I/O statement. 

A logical unit number must be an integer within 
the range 1 to 99. Correct the statement in 

error. 

21 FATAL 

OUT OF AVAILABLE LOGICAL UNITS 

An attempt was made to have too many logical units 
simultaneously open for I/O. 

The maximum number of active logical units is six 
by default. To increase the maximum, recompile 

the main program using the /UNITS (/N) option to 
specify a larger number of available channels. 

22 FATAL 

INPUT RECORD TOO LONG 

During an input operation, a record was 
encountered that was longer than the maximum 
record length. 
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Error Error Message 

number type 


23 


24 


25 


26 


The default maximum record length is 136 (decimal) 
bytes. To increase the maximum, recompile the 
main program using the /RECORDS (/R) option to 
specify a larger run-time record buffer (the legal 
range is 4 to 4095) . 

FATAL HARDWARE I/O ERROR 

A hardware error was detected during an I/O 
operation. 

Check the volume for an off-line or write-locked 
condition, and retry the operation. Try another 
unit or drive if possible, or use another device. 

FATAL ATTEMPT TO READ/WRITE PAST END OF FILE 

During a sequential READ operation, an attempt was 
made to read beyond the last record of the file. 
During a random-access READ, this message 
indicates that an attempt was made to reference a 
record number that was not within the bounds of 
the file. 

Use the "END=" parameter to detect this condition, 
or correct the program logic so that no request is 
made for a record outside the bounds of the file. 

During a WRITE operation, this message indicates 
that the space available for the file is 
insufficient. 

(RT-11 action) 

Try to make more file space available by deleting 
unnecessary files and compressing the device, or 
by using another device. 

(RSTS/E action) 

This condition is equivalent to the "NO ROOM FOR 
USER ON DEVICE" system error. Make more space 
available by deleting files from the current 
account, or use another device. 

FATAL ATTEMPT TO READ AFTER WRITE 

An attempt was made to read after writing on a 
sequential file located on a file-structured 
device. 

A write operation must be followed by a REWIND or 
BACKSPACE before a read operation can be 
performed. Correct the program logic. 

FATAL RECURSIVE I/O NOT ALLOWED 

An expression in the I/O list of a WRITE statement 
caused initiation of another READ or WRITE 
operation. (This can happen if a FUNCTION that 
performs I/O is referenced within*an expression in 
an I/O list.) 

Correct the program logic. 
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Error Error Message 

number type 


27 


28 


29 


30 


31 


32 


FATAL 


FATAL 


FATAL 


FATAL 


FATAL 


FATAL 


ATTEMPT TO USE DEVICE NOT IN SYSTEM 

An attempt was made to access a device that was 

not legal for the system in use. 

Use the system ASSIGN command to create the 
required logical device name, or change the 
statement in error. 

OPEN FAILED FOR FILE 

The file specified was not found, or there was no 
room on the device. 

Verify that the file exists as specified. Delete 
unnecessary files from the device, or use another 
device. 

NO ROOM FOR DEVICE HANDLER (RT-11 only) 

There was not enough free memory left to 

accommodate a specific device handler. 

Move the file to the system device or to a device 
whose handler is resident. Make more memory 
available by unloading unnecessary handlers, 
unloading the foreground job, using the single-job 
Monitor, or SET USR SWAP, if possible. 

NO ROOM FOR BUFFERS 

There was not enough free memory left to set up 
required I/O buffers. 

(RT-11 only) 

Reduce the number of logical units that are open 
simultaneously at the time of the error. If using 
double buffering or if another file is currently 
open, use single buffering. Make more memory 
available by unloading unnecessary handlers, 
unloading the foreground job, using the single-job 
Monitor, or SET USR SWAP, if possible. 

(RSTS/E only) 

Increase the space available for buffering by 
specifying the appropriate value for the /K switch 
to LINK, or reduce the number of logical units 
that are open simultaneously at the time of the 
error. 

NO AVAILABLE I/O CHANNEL 

More than the maximum number of channels available 
to the FORTRAN IV run-time system (15 for RT-11; 
14 for RSTS/E, exclusive of the terminal) were 
requested to be simultaneously opened for I/O. 

Close any logical units previously opened that 
need not be open at this time. 

FMTD-UNFMTD-RANDOM I/O TO SAME FILE 
An attempt was made to perform any combination of 
formatted, unformatted, or random access I/O to 
the same file. 

Correct the program logic. 
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Error 

number 

Error 

type 

Message 

33 

FATAL 

ATTEMPT TO READ PAST END OF RECORD 

An attempt was made to read a larger record than 
actually existed in a file. 

Check the construction of the data file; correct 

the program logic. 

34 

FATAL 

UNFMTD I/O TO TT OR LP 

An attempt was made to perform an unformatted 
write operation on the terminal or line printer. 

Assign the logical unit in question to the 

appropriate device using the ASSIGN system 

command, the OPEN statement, the ASSIGN or OPEN 
FORTRAN library routine, or (RT-11 only) the 
IASIGN SYSLIB routine. 

35 

FATAL 

ATTEMPT TO OUTPUT TO READ ONLY FILE 

An attempt was made to write on a file designated 
as read-only. 

Check the OPEN statement, the ASSIGN or OPEN 
(RSTS/E only) system routine or IASIGN SYSLIB 
function (RT-11 only) to ensure that the correct 
arguments were used. Check for a possible 
programming error. 

36 

FATAL 

BAD FILE SPECIFICATION STRING 

The Hollerith or literal string specifying the 
device/filename OPEN statement, in the CALL ASSIGN 
or CALL OPEN system subroutine could not be 
interpreted. 

Check the format of the OPEN statement, CALL 
ASSIGN or CALL OPEN statement. 

37 

FATAL 

RANDOM ACCESS READ/WRITE BEFORE DEFINE FILE 

A random-access read or write operation was 

attempted before a DEFINE FILE was performed. 

Correct the program so that the DEFINE FILE 
operation is executed before any random-access 
read or write operation. 

38 

FATAL 

RANDOM I/O NOT ALLOWED ON TT OR LP 

Random-access I/O was illegally attempted on the 
terminal or line printer. 

Assign the logical unit in question to the 
appropriate device using the ASSIGN keyboard 
monitor command, OPEN statement, the ASSIGN or 
OPEN FORTRAN library routine, or (RT-11 only) the 
IASIGN SYSLIB routine. 

39 

FATAL 

RECORD LARGER THAN RECORD SIZE IN DEFINE FILE 

A record was encountered that was larger than that 
specified in the DEFINE FILE statement for a 
random-access file. 

Shorten the I/O list or redefine the file 

specifying larger records. 
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Error Error 

number type 

Message 

40 FATAL 

REQUEST FOR A BLOCK LARGER THAN 65535 

An attempt was made to reference an absolute disk 
block address greater than 65535. 

Correct the program logic. 

41 FATAL 

DEFINE FILE ATTEMPTED ON AN OPEN UNIT 

A file was open on a unit and another DEFINE FILE 
was attempted on that unit. 

Close the open file using the CLOSE statement 
before attempting another DEFINE FILE. 

42 FATAL 

MEMORY OVERFLOW COMPILING OBJECT TIME FORMAT 

The OTS ran out of free memory while scanning an 
array format generated at run-time. 

(RT-11 only) 

Use a FORMAT statement specification at 

compile-time rather than object-time formatting, 
or make more memory available by unloading 

unnecessary handlers, unloading the foreground job 
if possible, using the single-job Monitor, or SET 
USR SWAP, if possible. 

(RSTS/E only) 

Use a FORMAT statement specification at 

compile-time rather than object-time formatting, 
or allocate more space by using the /K switch to 
LINK. 

43 FATAL 

SYNTAX ERROR IN OBJECT TIME FORMAT 

A syntax error was encountered while the OTS was 
scanning an array format generated at run-time. 

Correct the programming error. 

44 FATAL 

2ND RECORD REQUEST IN ENCODE/DECODE 

An attempt was made to use ENCODE and DECODE on 
more than one record. 

Correct the FORMAT statement associated with the 
ENCODE or DECODE so that it specifies only one 
record. 

4 5 FATAL 

INCOMPATIBLE VARIABLE AND FORMAT TYPES 

An attempt was made to output a real variable with 
an integer field descriptor or an integer variable 
with a real field descriptor. 

Correct the FORMAT statement associated with the 
READ or WRITE, ENCODE or DECODE. 

46 FATAL 

INFINITE FORMAT LOOP 

The format associated with an I/O statement, which 
includes an I/O list, had no field descriptors to 
use in transferring those variables. 

Correct the FORMAT statement in error. 
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Error Error Message 

number type 


47 


48 


49 


50 


51 


59 


60 


FATAL 


FATAL 


FATAL 


FATAL 


FATAL 


ATTEMPT TO STORE OUTSIDE PARTITION (RT-11 only) 

In an attempt to store data into a subscripted 
variable, the address calculated for the array 
element in question did not lie within the section 
of memory allocated to the job. The subscript in 
question was out-of-bounds. (This message is 
issued only when bounds checking modules have been 
installed in FORLIB and threaded code is selected 
at compile time.) 

Correct the program logic. 

UNIT ALREADY OPEN 

An attempt was made to perform an illegal 
operation on an open file. 

ENDFILE ON RANDOM FILE 

An ENDFILE statement contains a unit number of a 
file which is open as a random-access file. 

KEYWORD VALUE ERROR IN OPEN STATEMENT 
A numeric value specified for a keyword in the 
OPEN statement is not within the accepted range. 

Check the expression in the OPEN statement, and 
modify to yield a valid value. 

INCONSISTENT OPEN/CLOSE STATEMENT SPECIFICATIONS 
The specifications in an OPEN or subsequent CLOSE 
statement have indicated one or more of the 
following: 


a. 

A 'NEW' 

or 'SCRATCH' file which 

is 

'READONLY'. 

b. 

'APPEND 

file. 

' to a 'NEW', 'SCRATCH', 

or 

'READONLY' 

c. 

'SAVE' 

or 'PRINT' Of a 'SCRATCH' 

1 file. 

d. 

'DELETE 

' or 'PRINT' of a 'READONLY' 

file. 


Correct the OPEN or CLOSE statement to remove the 
conflict. 

WARNING USR NOT LOCKED (RT-11 only) 

This message is issued when the FORTRAN program is 
started. If the program was running in the 
foreground, the /NOSWAP option was used during 
compilation, and the USR was swapping (i.e., a SET 
USR NOSWAP command has not been done). 

Re-examine the intent of the /NOSWAP option at 
compile time and either compile without /NOSWAP or 
issue a SET USR NOSWAP command. 

FATAL STACK OVERFLOWED 

The hardware stack overflowed. More stack space 
may be required for subprogram calls and opening 
of file. Proper traceback is impaired. This 
message occurs in the background only. 

Allocate additional space by using the /BOTTOM 
(/B) option at link-time. Check for a programming 
error. 
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Error Error 

number type 

Message 

61 FATAL 

ILLEGAL MEMORY REFERENCE 

Some type of bus error occurred, most probably an 
illegal memory address reference. 

If an assembly language routine was called, check 
for a coding error in the routine. Otherwise, 
insure that the correct FORTRAN library was 

called. 

62 FATAL 

FORTRAN START FAIL 

The program was loaded into memory but there was 
not enough free memory remaining for the OTS to 
initialize work space and buffers. 

(RT-11 only) 

If running a background job, make more memory 
available by unloading unnecessary handlers, using 
the single-job Monitor. If running a foreground 
job, specify a larger value using the FRUN /N 
option. Refer to Chapter 4 (SYSTEM SUBROUTINE 
LIBRARY) of the RT-11 Advanced Programmer's Guide 
for the correct formula. 

(RSTS/E only) 

Allocate more space by using the /K switch to 
LINK. 

63 FATAL 

ILLEGAL INSTRUCTION 

The program attempted to execute an illegal 
instruction (e.g., floating-point arithmetic 
instruction on a machine with no floating-point 
hardware). 

If an assembly language routine was called, check 
for a coding error in the routine. Otherwise, 
ensure that the correct FORTRAN library was 
called. 

64 FATAL 

VIRTUAL ARRAY INITIALIZATION FAILURE 

a) The total storage requirements for VIRTUAL 
arrays in the program exceeds the currently 
available memory on the system. 

b) Another job is currently using VIRTUAL support 
under the FB or SJ monitor. 

c) PLAS VIRTUAL array support is attempted under 
the FB or SJ monitor. 

d) Any non-PLAS VIRTUAL array support is 

attempted under the XM monitor. 

e) PLAS support is attempted without EIS 

hardware. 
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Error Error 

number type 

Message 

65 FATAL 

If another job is currently executing (under XM 
monitor with PLAS VIRTUAL support), make sure that 
the total VIRTUAL storage demands for both 
programs are satisfied by the available memory on 
the machine. 

Reduce VIRTUAL storage requirements by decreasing 
the size of VIRTUAL arrays declared in the 
program. 

VIRTUAL ARRAY MAPPING ERROR 

An attempt has been made to reference outside the 
bounds of the extended memory region allocated to 
VIRTUAL arrays in this program, probably caused by 
a subscript out-of-bounds. 

Verify that the subscripts of the VIRTUAL arrays 
referenced in the statement indicated are within 
the declared bounds. 

66 FATAL 

UNSUPPORTED OPEN/CLOSE KEYWORD OR OPTION 

A keyword or keyword value in the OPEN or CLOSE 
statement indicated is invalid under this 

particular operating system. 

Refer to Section 3.1.1 for system-dependent 

restrictions. 

67 WARNING 

UNSUPPORTED OPEN/CLOSE KEYWORD OR OPTION 

A keyword or keyword value in the OPEN or CLOSE 
statement indicated is not meaningful in the 
current operating system environment. 

The presence of the keyword or option is ignored. 

68 FATAL 

DIRECT ACCESS RECORD SIZE ERROR 

The size of a direct-access record exceeds 32767 
double words. 

Correct the program logic. 

69 FATAL 

Cannot send to QUEMAN (RSTS/E only). An error 

occurred when closing a file with attribute 

DISPOSE= 1 PRINT 1 . 
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APPENDIX D 


COMPATIBILITY WITH OTHER PDP-11 LANGUAGE PROCESSORS 


FORTRAN IV is a new implementation of FORTRAN for the PDP-11, 
available under RT-11, RSTS/E, RSX-11M, RSX-llD and IAS. It has been 
designed to be upward compatible with FORTRAN IV PLUS (F4P) and 
compatible with the earlier FORTRAN (FTN) on DOS-11 and RSX-llD V4A. 
However, some differences exist as a result of: 

1. correcting deficiencies in FTN FORTRAN. 

2. language specification decisions necessary to promote the 
goal of an upward compatible line of FORTRANS, and 

3. providing significant extensions to FTN FORTRAN in a manner 
consistent with the FORTRAN language, the ANSI FORTRAN 
Standard and existing FORTRANs. 


D.l FORTRAN IV COMPATIBILITY WITH FTN V08.04 

This section summarizes differences which may affect conversion from 
FTN to FORTRAN IV. 

Items marked with an asterisk (*) denote differences from FTN which 
are common to both FORTRAN IV PLUS (F4P) and FORTRAN IV. 


D.1.1 Language Differences 

*1. FTN permits transfer of control to FORMAT statements, which 
execute as CONTINUE statements. FORTRAN IV does not, and 
issues compile-time error messages. 

*2. FTN V07.14 provided an uncounted form for Radix-50 constants 
used in DATA statements. V08.04 added the counted form and 
promised de-support of the uncounted form. Only the counted 
form is provided in FORTRAN IV. 

3. In FORTRAN IV, the syntax of the IMPLICIT statement is 
different from that required by FTN. 

4. FTN provides expressions in FORMAT statements (called 
variable format expressions); FORTRAN IV does not. 
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D.1.2 Implementation Differences 

*1. FTN allows both formatted and unformatted records in the same 
file by means of the MXDFUF subroutine call. This feature is 
not supported in FORTRAN IV. 

*2. The FTN service subroutines PDUMP and SETPDU are not provided 
in FORTRAN IV. Similar but more flexible debugging output 
may be obtained by using WRITE statements in debug lines. 

*3. The TRCLIB library for statement level execution tracing is 
not available in FORTRAN IV. 

*4. Under FTN, Q format returns the number of characters in the 
input record (i.e., the record length) independent of the 
current scan position. Under FORTRAN IV, Q format returns 
the number of characters remaining in the input record 
following the scan position. The record length may be 
obtained by using the Q format first in the format 

specification. 

*5. FTN performs the following actions when opening a unit for 
direct access I/O: first it checks if a file already exists; 
if so, it uses it, if not, it creates a new file for use. 

In FORTRAN IV, the type of open depends on whether a READ or 
WRITE statement is causing the open operation. If it is a 
READ, then the file must already exist or an error results. 
If it is a WRITE, then a new file is created. 

*6. The implementation of error handling in FORTRAN IV is 
significantly different from that in FTN. In particular, the 
use of error classes for controlling error handling is 
replaced by control over each individual error condition. 

*7. FTN does not compile format specifications for use at 
run-time, whereas FORTRAN IV does. One difference results: 

Format specifications stored in arrays are recompiled at 
run-time each time they are used. If an H format is used 
in a READ statement to read data into the format itself, 
that data does not get copied back into the original 
array. Hence, it will not be available on a subsequent 
use of that array as a format specification. This is in 
accord with the ANSI FORTRAN language specification. 

This consideration does not apply to format specifications 
defined in FORMAT statements. 

*8. FTN implements the ENDFILE statement as a close operation. 
FORTRAN IV implements the ENDFILE statement by writing an end 
of file record in a file. 

9. FORTRAN IV checks that the labels used in an assigned GOTO 
are valid labels in the program unit, but it does not check 
at run-time whether an assigned label is in the list in the 
GOTO statement. FTN checks at run-time. 

10. The FTN /-ON compiler option switch causes two-word 
allocation (instead of one-word allocation) of all INTEGER 
and LOGICAL variables. The similar FORTRAN IV 14 (/T) 

compiler option affects allocation of unspecified size 
INTEGER variables only; unspecified LOGICAL variables are 
always allocated two words in FORTRAN IV. 
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11. The FTN and F4P implementations of adjustable dummy arrays 
copy dummy argument dimension variables into an internal 
array descriptor upon entry to a subprogram. A subsequent 
assignment to a dummy argument dimension variable within that 
subprogram does not affect the array subscript calculation. 

FORTRAN IV does not use array descriptor blocks but rather 
references dummy argument dimension variables directly during 
subscript calculations. Hence, an assignment to a dummy 
argument dimension variable will affect array subscript 
calculations. 

12. FTN, in contrast to FORTRAN IV and F4P, does not enforce the 
PDP-11 Language Reference Manual 's restrictions concerned 
with modifying the control variable and the parameters of a 
DO loop within the body of the loop. 

13. Unlike FORTRAN IV and F4P, FTN defines named COMMON blocks in 
terms of named .CSECTs. 


D.2 DIFFERENCES BETWEEN FORTRAN IV-PLUS AND FORTRAN IV 

This section summarizes differences that may affect conversion from 
FORTRAN IV to FORTRAN IV PLUS. 


D.2.1 Language Differences 

1. F4P transforms FORTRAN defined function name references into 
a special kind of internal calling form, while FORTRAN IV 
does not. If a user supplies a routine of his own to replace 
the F4P FORTRAN defined routine (for example, writes his own 
SIN routine) it will generally be necessary to include 
EXTERNAL statements (with the user name prefixed by an 
asterisk, 1 *') to cause that routine to be referenced. This 
is not necessary in FORTRAN IV. 


D.2.2 Implementation Differences 

1. FORTRAN IV logical tests treat any non-zero bit pattern in 
the low-order byte of a LOGICAL variable as .TRUE., and an 
all-zero bit pattern as .FALSE. 

F4P tests only the highest-order bit of the value and treats 
a one as .TRUE. and a zero as .FALSE. 

2. In FORTRAN IV, INTEGER*4 causes 32-bit allocation (4 bytes), 
but only 16 bits are used for computation. In F4P, INTEGERM 
causes both 32-bit allocation and 32-bit computation. 

3. FORTRAN IV checks that the labels used in an assigned GOTO 
are valid labels in the program unit, but it does not check 
at run-time whether an assigned label is in the list in the 
GOTO statement. F4P does check at run-time. 
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4. FORTRAN IV permits an unlimited number of continuation lines. 
In F4P, up to 5 continuation lines are permitted by default, 
and up to 99 may be obtained by means of the compiler /CO 
switch. 

5. For unformatted input/output operations, both sequential and 
direct-access, FORTRAN IV reads/writes four bytes of data if 
the variable is allocated four bytes of storage. F4P does 
also. However, since INTEGERM values in FORTRAN IV 
generally have an undefined high-order part, they generally 
may not be read as INTEGERM values by F4P. Similarly, since 
FORTRAN IV and F4P logical tests are different (see item 1 
above), care must be taken when interchanging logical values. 

6. For random-access input/output operations, FORTRAN IV takes 
the END= exit on an end-file condition and the ERR= exit only 
for hardware I/O errors. F4P ignores any END= specification 
and takes the ERR= exit for both. 


D.3 RSTS/E FORTRAN IV FILE COMPATIBILITY 

RSTS/E FORTRAN IV can read and write files compatible with the other 
language processors available on the RSTS/E operating system 
(BASIC-PLUS and COBOL). Certain file formats, however, are not 
supported under FORTRAN IV. Also, care must be taken when creating 
files with FORTRAN if they are to be processed by a program written in 
another language. 


D.3.1 Sequential Stream ASCII Files 

All three language processors available on RSTS/E share the concept of 
sequential stream files composed of ASCII data. In FORTRAN, this type 
of file is accessed with formatted READ and WRITE statements. 
BASIC-PLUS processes stream files through the INPUT, INPUT LINE, and 
PRINT statements. COBOL sequential stream files, which do not contain 
any binary data, also fall into this category. 

A stream ASCII file consists of variable-length data records 
terminated by a carriage control sequence, usually CR - LF. No 
extraneous formatting information (such as byte counts or checksums) 
is included in the file. 

BASIC-PLUS programs create this type of file by default. The COBOL 
language processor will create compatible files if no binary data 
(e.g., COMPUTATIONAL variable type) is written. COBOL data of type 
DISPLAY is usually acceptable in a stream ASCII file. FORTRAN will 
accept files structured in this fashion in formatted READ statements. 

To create compatible files with the FORTRAN formatted WRITE statement, 
care must be taken to assure proper positioning of carriage control 
information. By default, FORTRAN records begin with the vertical 
forms control characters required for the record to be written, 
followed by the data record itself, and terminated by a carriage 
return character. For example, the statements: 

TYPE 100 

100 FORMAT(' HELLO 1 ) 
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will create the following record: 

<LF>HELLO<CR> 

where <LF> represents the line feed character and <CR> denotes the 
carriage return character. It is desirable to create records 
terminated by the carriage return-line feed sequence for 
compatibility. The previous example may be rewritten to achieve this: 

TYPE 200 

200 FORMAT( 1 +HELLO 1 /) 

The ' + ' character suppresses the initial line feed generated by 
default, and the '/' record terminator causes the line feed to be 
generated at the end of the record, as desired. 

Note that the above technique applies only to files which have been 
created with the 'CC' attribute in CALL ASSIGN or CALL OPEN. By 
default, files output to non-printing devices have carriage control 
translation suppressed. Such files consist of an initial line feed 
character, followed by records in the standard stream ASCII format 
(i.e., terminated by CR-LF sequences). 


D.3.2 Virtual Array Files 


The BASIC-PLUS language provides the capability to create files which 
are accessed from the program as arrays of data elements. All 
'records' in the file are of a fixed length, usually one integer or 
floating-point value. String virtual arrays are also provided. 


FORTRAN programs can read and write virtual array files in a very 
straightforward fashion. For example, consider the integer virtual 
array referenced by the following BASIC-PLUS dimension statement: 


DIM #chan,I%(9999%) 

To read this array file from FORTRAN, the programmer would first 
describe the file format with the DEFINE FILE statement as follows: 


DEFINE FILE unit (10000,1,U,ivar) 


Note that this statement establishes the size of each record 
word (the second argument inside parentheses), and indicates 
number of such records in the file is 10000. The file may 
accessed by the statement: 


as one 
that the 
now be 


READ (unit*index)ivalue 


where index represents the subscript to be used (note that FORTRAN 
subscripts begin at one, whereas BASIC-PLUS uses zero-origin 
indexing) . The value of the selected element will be read into the 
integer variable specified by ivalue. To handle virtual arrays of 
floating point values, the same format for the DEFINE FILE statement 
is used, replacing the size of the record in words with the value 
appropriate to the math package used by the BASIC-PLUS program in 
question. (If the two-word math package was used to create the file, 
the value 2 should be specified as the second argument inside 
parentheses; 4 is appropriate to the four-word math package.) 


c 
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To handle two-dimensional virtual arrays, the DEFINE FILE statement 
must be coded to account for the total number of elements in the 
array. For example, the following BASIC-PLUS dimension statement 
allocates a two-dimensional integer arrays 

DIM #chan,I%(m,n) 

where m and n specify the array dimensions (remember that indexing 
starts at zero in BASIC). The equivalent DEFINE FILE statement is: 

DEFINE FILE unit ((m+1)*(n+1),1,U,ivar) 

The expression (m+1)*(n+1) computes the number of array elements 
specified by the previous DIM statement. To access this array as done 
in the following BASIC-PLUS lines 

11% = I % (J %,K%) 

the FORTRAN programmer must compute the vector index ass 
READ (unit* (J*(n+1) + K + l))Il 

To access a string virtual array, the DEFINE FILE statement should 
specify the maximum string size divided by two (as element sizes are 
specified in words). For example, the BASIC-PLUS statements 

DIM #chan,A$(100%) = 128% 

would be equivalent to the DEFINE FILE statements 

DEFINE FILE unit (101,64, U, ivar) 

The strings may be stored in the FORTRAN program in LOGICAL*l arrays 
of the appropriate length. The following FORTRAN code will read one 
element of the virtual string array specified in the above examples 

LOGICAL*l STRING(128) 

READ (unit*index) STRING 

Strings stored in virtual array files are padded on the right with 
null characters (000 octal) to the specified record length. 

For more information on string array refer to the BASIC-PLUS Language 
Reference Manual, Chapter 5. 


D.3.3 BASIC-PLUS Record I/O Files 

BASIC-PLUS record I/O files may be accessed from FORTRAN programs 
using the direct-access I/O facility. The DEFINE FILE statement 
should specify the number of words in each logical record of the file 
as the size. FORTRAN direct-access I/O demands that all records of 
the file have the same length. If this is true of the record I/O file 
in question, the FORTRAN system will do all record blocking/deblocking 
for the user. If the file in question has records of several 
different sizes, the programmer should read the file on a 
block-by-block basis. 

To read the file on a block-by-block basis, the DEFINE FILE statement 
specifies 256 as the record size. Each record is read into a 256-word 
array area (usually an INTEGER*2 array of 256 elements). The 
programmer must then find the records desired in each block by 
indexing through the buffer array. 
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When accessing values stored using the CVT%$ and CVTF$ functions, or 

when creating files which will be read by BASIC-PLUS programs which 

will use the CVT$% and CVT$F functions to retrieve values, special 
care must be taken. The CVT%$ and CVTF$ functions store the binary 
values byte-reversed from the normal orientation expected by FORTRAN 
(and the representation in virtual array files). For example, the 
function call CVT%$(13%) returns the value 000,015 as octal byte 
values, (with 000 as the low-order byte and 015 as the high-order 
byte). Hence, the FORTRAN programmer must reverse the bytes of each 

word of a value written by a BASIC-PLUS program which uses these 

functions. To perform the required byte-reversal operation on a 
floating-point value which has been read into the variable A, the 
following code can be used: 

REAL*4 A 

LOGICAL*l TEMP(4),T 
EQUIVALENCE (A,TEMP) 

T = TEMP(1) 

TEMP(1) = TEMP(2) 

TEMP(2) = T 
T = TEMP(3) 

TEMP(3) = TEMP(4) 

TEMP(4) = T 

When writing files which are to be read by BASIC-PLUS, the 
byte-reversal must also be performed. 


D.3.4 COBOL Piles 

As noted above, sequential stream ASCII files produced by COBOL can be 
processed by FORTRAN IV using formatted I/O. These files must not, 
however, contain any binary data, as a special format is used to 
represent COBOL records containing such values. Accessing files with 
the COBOL relative organization is not supported from FORTRAN IV due 
to the complex internal structure of such files. 


D.3.5 IAM Files 

The IAM (Indexed Access Method) file organization available under 
BASIC-PLUS is not currently supported in the FORTRAN IV environment. 
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Options, Compiler; 

Options, Linker 
Listing, 

compilation statistics, 1-15 
default, 1-9 
format, 1-9 
generated code, 1-5 
optional sections, 1-9 
options, 1-15 
sample compilation, 1-13 
source, 1-15 
storage map, 1-15 
LIST.LST source file, 1-7 
LOAD•LDA command sequence, 1-21 
Load map (mapout) file, 1-17 
specification, 1-17 
LOAD.SAV core image file, 1-17 
Locating a file, 1-7 
LOGICAL format, A-3 
LOGICAL*1 format, A-3 
Logical units, 

maximum open (NLCHN), 1-15 
numbers (LUNs), 3-5 
table of assignments, 3-5 
Long format, 

error diagnostics, C-12 
Object Time System, C-12 
see also Errors 
Loop, 

calculations outside, 4-6 
calculations within, 4-7 
Lowercase characters, vii 
see also Character 
LRECL (maximum record length), 
1-15 


MACRO assembler, 1-17 
see also Assembler 
Main program, 

placement of, 1-20 
Maps, 

array vector, 2-11 
load (mapout) file, 1-21 
mapping function, 2-12 
subprogram vector, 2-12 
Memory, 

adding, 1-16 

compiler requirements, 1-16 
under RSTS/E, 1-16 
under RT-11, 1-16 
obtaining additional, 1-16 
organization (RT-11), 2-18 
runtime graph, 2-19 
runtime segments, 2-18 
maximum space, 2-18 
size of, 2-18 
Mode, 

calculation in INTEGER, 4-4 
comparison in mixed mode, 3-8 
file, 

'NEW' (new file) , B-3 , B-4 
•OLD* (existing file), B-3 , 
B-4 

'RDO 1 (read only), B-3 , B-4 
'SCR' (temporary), B-3 , B-4 
Modules, 

linker object, 1-12 
system simulator ($SIMRT), 

1- 27 

Multi-buffering, B-3 
Multi-dimensional arrays, 2-12, 

2- 13 

use of, 4-3 

see also Array 


Nesting, 

of DO loops, 4-6 
see also DO loops 
NLCHN (maximum open logical 
units), 1-15 
Numbers, A-l 


Object, 

program efficiency, 4-1 
time format, 4-3 
Object code, 1-2, 2-1 
compiler, 1-15 
generated listing, 1-15 
see also Code 
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Object modules, linker, 1-17 
see also Modules 
Object Time System (OTS), 2-1 
see OTS 

OPEN subroutine, B-l, B-3 
see also Subroutine 
OPEN statement, restrictions, 
B-4 

Operations (*2, **2) , 4-5 
Optimizer, 

effective use of, 4-1 
Optional listing sections, 1-15 
see also Listing 
Options, Compiler, 1-2, 1-3 
table of, 1-9 
Options, Linker, 
tables of, 

RSTS/E, 1-21 
RT—11, 1-17 

OTS (Object Time System), 2-1 
diagnostics, C-12 
summary of, C-13 
error conditions, C-13 
listing, C-13 
long format, C-12 
short format, C-12 
Output file, 

absolute binary format, 1-22 
compiler, 

listing, 1-12 
object, 1-12 
default extension, 1-6 
Output filename, 
specification, 1-3 
Output format, 3-7 
see Input/output 
Overlay, 

capability, 1-25 
handler, 1-26 
initialization, 1-26 
region, 1-25 
segment, 1-25 
size, 1-26 
structure, 1-26 
use of, 1-25 

see also Linker 


Parameter, ERR=, 3-1, 3-7 
see also ERR= 

Parity bit, ASCII, 3-7 
see also ASCII 
PAUSE statement, 3-4 
example of, 3-4 

see also Statements 
PRINT statement, 3-6 

see also Statements 


Program, 

calling, 2-9 

returning control to, 2-9 
compiled, 

protection code, 1-6 
division of, 1-15 
main, 

placement of, 1-20 
preparing source, 1-1 
steps in executing, 1-1 
storage required, 1-10 
Program Logical Address Space 
(PLAS), 

use with VIRTUAL, 2-4 
Program sections (PSECT), 
1-15, 2-13 to 2-16 
assembly language in, 2-15 
attributes, 2-13 
COMMON in, 2-14 
compiled output, 2-13 
MACRO in, 2-16 
ROMs, building in, 2-15 
USR in, 2-15 
Programming techniques, 
efficient, 4-5 
for division in programs, 
4-7 

minimizing execution space, 
4-4 

Program termination, 

fatal error condition, C-13 
Project, programmer number 
[p,pn], 1-7 

Protection code (<prot>), 1-6 
changing, 1-6 
combining, 1-6 
compiled program, 1-19 
default, 1-6 
meaning, 1-6 
table of, 1-6 
PSECT 

see Program sections 


RADIX-50, 

character set, A-4 
format, A-4 

Random access device, 1-17 
RANDU, RAN subroutine, B-l, 
B-5, B-7 
format of, B-7 

see also Subroutine 
READ statement, 3-5, 3-6 
see also Statements 
REAL format, A-2 

see also Data type 
REAL*4 data type, 4-4 
see also Data type 
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Record, 

ASCII, 3-7 
binary, 3-7 
changing length, 3-6 
maximum length, 1-15, 3-6 
formatted, 3-7 
see also LRECL 
Register, 

assignments, 2-10 
hardware, 2-10 
subprogram usage, 2-10 
Register 5 (R5), 2-5 
format, 2-5 

ROM (read-only memory), 1-27, 
2-15, 2-16 

Root segment, linker, 1-25 
Routine, 

CALL CLOSE, 2-18 
CALL EXIT, 3-4 
formatted, 3-7 

input/output, 3-7 
RSTS/E, 

compilation, 1-16 
compiler memory requirements, 
1-16 

execution, 1-20 
linking, 1-21 
RT-11, 

compilation, 1-16 
compiler memory requirements, 
1-16 

execution, 1-17 
linking, 1-17 
Runtime errors, 
interception, 3-7 
locating, 2-17 
see also Errors 
Runtime memory, 
graph of, 2-19 
organization, 2-18 
segments, 2-18 

maximum space, 2-18 
size of, 2-18 


Satellite machine, 1-27 
execution, 1-27 
ROM applications, 1-27 
Save image LDA format, 1-17 
Secondary phase errors, 
compiler, C-4 
summary, C-4 

see also Errors 
Segment, 

maximum space, 2-18 
runtime memory, 2-18 
size of, 2-18 


Sequential stream ASCII files, 
D-4 

see also ASCII 

SETERR subroutine, B-l, B-8, 

C-13 - 

format, B-8 

see also Subroutine 
Short format, 

error diagnostics, C-12 
see also Errors 
Source lines, 1-5 
contents of, 3-3 
Source listing, 1-15 
Source program, preparing a. 

Specifications, filename, 1-3 
input, 1-3 
output, 1-3 
use of, 1-5 

Specifications, table of device, 
1-5 

Stack, hardware, 
contents of, 2-10 
Stand-alone FORTRAN, 1-27 
generation, 1-27 
operation, 1-27 
Statement, FORTRAN, 3-1 
functions, 4-2 
ordering requirements, 3-1 
Statements, 

ACCEPT, 3-6 
CALL, 2-4 
CLOSE, B-l, B-5 
DATA, 3-1 
DECODE, 3-4 
DEFINE FILE, 3-6 
ENCODE, 3-7 
END, 3-7 
FIND, 3-6 
FORMAT, 3-5 , 4-3 
GOTO example, 4-5 
OPEN, B-l, B-3 
PAUSE, 3-4, 3-6, 3-8 
example of, 3-4 
PRINT, 3-6 
READ, 3-6, 3-7 
STOP, 3-4 

example of, 3-5 
TYPE, 3-6 
WRITE, 3-7 
STOP statement, 3-4 
example, 3-5 

see also Statements 
Storage map listing, 1-15 
String, command, 1-16 
Subprograms, 

arguments passed to, 4-2 
arrays passed to, 2-11 


Index-7 









INDEX (CONT.) 


Subprograms (Cont.), 

control passed to, 2-9 
function, 2-10 
linkage, 2-9 
register usage, 2-10 
vector maps, 2-12 
Subroutine, 

ASSIGN, B-l 
CLOSE, B-l, B-5 
DATE, B-l, B-6 
ERRSNS, B-l, B-9 
ERRTST, B-l, B-8 
EXIT, B-l, B-7 
IDATE, B-l, B-6 
OPEN, B-l, B-3 
RANDU, RAN, B-l, B-7 
SETERR, B-l, B-8 , C-13 
USEREX, B-l 

Subroutines, assembly language, 
1-17 

internal, 4-2 
summary, B-l 
Switch, Compiler 

see also Options, Compiler 
table of, 1-9 
Switch, Linker, 

see also Options, Linker 
table of, 1-17, 1-21 
Switch options, 1-2 
Switches, CCL command restriction, 
5-2 

Switches, Compiler, 1-9 
System library, 1-7 
see also Library 


Table, 

of ASCII/Radix-50 equivalents, 
A-5 

of carriage control characters, 
3-6 

of device specifications, 1-5 
of filename extensions, 1-6 
of logical device assignments, 
3-5 

of protection codes, 1-6 
Table lookup, 2-12 
Task builder, 

see Linker (LINK) 

Threaded code, 1-2, 1-3, 2-1, 

2-2 

Traceback feature, 
example of, 2-17 


Transferring ASCII files, 3-7 
see also ASCII 

Translation of carriage control, 
3-7, B-3, B-4 
see also Carriage control 
Two-dimensional array, 2-12 
see also Array 
TYPE statement, 3-6 

see also Statements 


Unformatted input/output, 3-7 
see also Input/output 
USEREX subroutine, B-l, B-7 
format of, B-7 

see also Subroutines 
User's directory, 1-7 
see also Directory 
USR (User Service Routine), 2-18 
swapping, 2-18 


Variables, COMMON, 
initialization, 3-4 
names, 3-4 

see also COMMON 
Vectoring, array, 
illustration, 2-12 
required memory, 2-12 
sharing, 2-8 
suppression of, 2-12 
see also Array 
VIRTUAL array, 2-3 to 2-5 
converting existing program 
to use, 2-5 

Virtual array files, D-5 
see also File 
.VSECT, 2-4 


Warning diagnostics, compiler, 
C—10 

listing, C-10 

see also Diagnostics 
see also Errors 
WRITE statement, 3-7 

see also Statements 


Zeroing a large array, 4-6 
see also Array 
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